DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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MODULE DBGCVTDX (IDENT = ‘v04-000') = 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY age i THE TERM SUCH bECENSE a Le 


; CL C $o 
:*® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;° aeepORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 
: 
; : 

! WRITTEN BY 
88 Farokh Morshed 01-09-1981 
B88 ! MODIFIED BY: 
03 ; * These modifications are to LIBSSFIND_CVT_PATH, and were done before 
3 4 } . debug modifications. 
. = baad rigina . _ - 

5 0035 : 1-001 - Original. M1001 01-09-1981 

6 0036 ‘ 1-002 = Put in a check for DSCSW_LENGTH to be 1 when class A, or NCA, and 
¢ 0037 : if class NCA stride must be 1. FM 9-9-81 

8 0038 ‘ 1-003 - Put in a new data type, DSCSK_DTYPE_VT. FM 1-DEC-81. 
39 0039 } 1-004 = Put in a feature where O31 INFO Co_CEN) can be picked up for 
re sre } LIBSCVT_DX_DX. FM 2-DEC-81. 
42 O04 } * These modifications are to LIBSCVT_DX_DX, and were done before 
$7 ek . debug modifications. 
45 boe8 : 1-001 - Original. M1001 01-09-1981 
46 Bose ; 1-002 - Fix the problem with (SMLINT, LRGINT DEC? to NBDS$ having an explicit 
47 004 i sign when plus should be implied. Also CDEC_NBDS) scaled twice, 
48 0048 : changed it to scale only once. FM 5-NOV-81. 
43 049 : 1-003 - Fix the problem with CK_DEC_NBDSJ. The Length of CLASS_S_DESC was 

0 050 : not being reset. FM 

1 051 : 1-004 = Put in a new data t pe: DSCSK_DTYPE_VT. Cleaned up data type B 

4 2g : out of NBDS. FM 1-DEC-81. 
&2 oer : 1-005 - Eatotntce where destination length is not picked up from DST_INFO. 
33 55 : 1-006 = Constants which are addressed by things Like PACK_ZERO should be 
29 B238 : all Longuords . 

7 5 : 1-007 = LIBS_ROPRAND was left out of the exception handler. FM 8-FEB-82. 
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1-008 - A couple of missing dots fixed -Q => G and H. 
; DEBUG modifications start here. 
1-001 = Victoria Holt 


Created module peer tion. This module includes the two routines 
FIND_CV oy and DBGSCVT_DX_DX (originally LIBSSFIN_CVT_PATH 
and fastvt X_DX, respectively). Both routines have been 
modified i. “tnzlude additional DEBUG and Language specific 


eyes and classes. 

Added routine DBGSCOVER_DX_DX from DBGEVALOP. 

Modified handler so that if signals errors rather than 
feturnin uF atus code. 

aed wna + # for Absolute Date Time co CVT_DX_Dx 


Fix the = lL text to Octaword conversion 


8 
[=] 
o 
wu 
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Added mates, scaled binary conversions. To and From. 


Jan- 
Fixed the bug where DEP/QUAD I[=8000000000000000 does not work. 
Also pipvor 1=8000000000000000000000000000000. 


‘ 
So 
So 
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REQUIRE 'SRC$:DBGPROLOG.REQ'; 


LINKAGE 
JSB_RO = JSB (REGISTER = 0): PRESERVE (0, 1) 
JSB"R1 = JSB (REGISTER = 0, REGISTER = 15: PRESERVE (0, 1), 
JSB"RETRO_R1 = JSB (REGISTER = 0, REGISTER = 1): PRESERVE (1) 
JSB"R2 = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2): PRESERVE (0, 1), 
JSB"R3 = JSB (REGISTER = 0, REGISTER = 1. REGISTER = 2, REGISTER = 35: PRESERVE (0, 1), 
JSBERG = 18 (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 3, REGISTER = 4. REGISTER 
SCOPYR_JSB_R6 = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2): NOPRESERVE (2), 
SCOPY_JSB_R6 = JSB (REGISTER = 0, REGISTER = 1): NOPRESERVE (2, 3, 4, 5, 
FORWARD ROUTINE 
DBGSCOVER ' Accepts value descriptors; calls DBGSCVT_DX_Dx. 
COVER VASBE St c Setup, i Set up vms descriptor 
DBGSCUT_DX_DX? NOVALUE, ! Rear tne that p val any-to-any type conversion. 
CVT_HANDLE ' Error handler. 
FIND_CVT_PATH; i Routine to find the conversion path 
! being done and report any 
eae ack ROUTINE 
DBG cv _ASHP_R1: JSB_R6 NOVALUE , 
SCVT~CMPH"R1: JSB-RETR 
DBGSCVITCVIDA Ri: JSB_R1 NOVACUE, 
DBGSCVT~CVTLB-R1: JSB-R1 NOVALUE, 
DBGSCVT“CVILH"R1: JSB"R1 NOVALUE, 
DBGSCVT“CVTLW-R1: JSB-R1_NOVALUE 
DBGSCVT“CVTRDO_R1: JSB_R1 NOVALUE, 
DBGSCVT-CVTHD_R1: JSB_R1 NOVALUE, 
DBGSCVT"CVTHF-R1: JSB-R1 NOVALUE, 
DBGSCVT“CVTHG-R1: JSB"R1 NOVALUE, 
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DBGSCVT_CVTGH_R1: JSB_R1_NOVALUE 
DBGSCVT"CVTRHC_R1: JSB_R1 NOVALUE, 
DBGSCVT-CVTRHO-R1: JSB-R1 NOVALUE, 
DBGSCVT"“CVTRHO-R1: JSB-R1 NOVALUE 
DBGSCVT-CVTROUB_R1: JSB_R1 NOVALUE, 
DBGSCVT"CVTROUH-R1: JSB-R1 NOVALUE, 
DBGSCVT“DIVD2_RT: JSB_RT NOVALUE, 
DBGSCVT“DIVH2-R1: JSB-R1 NOVALUE, 
DBGSCVT-DIVP_R1: JSB_R6 NOVALUE 
DBGSCVT-MULD2_R1: JSB_R1 NOVALUE, 
DBGSCVT“MULH2-R1: JSB7R1 NOVALUE, 
S$CVT_MULP B_R6 NOVALUE, 


D “DTYPE_ CLASS 

DBGSPERFORM_TYPEID_ CHECK 
_TYP-SUBRNG: NOVALUE, 

DBGSSTA-TYP-ATOMIC: NOVALUE. 


LIBS$ 
DBGSCVT_SCALE_Ou_OP 4 E, 
DBGSCVT SCALE OU_DOON_BY_2_R1: JSB_RO NOVALUE, 
LIBSMATCH_CO 


$s NOVALUE, 
IBSSCOPY_R_DX6: SCOPYR_JSB_R6, 
BSSCOPY_DRDX6: SCOPY_JSB_R6, 
BSSTOP: “NOVALUE, 

SCVT_D_G: NOVALUE, 
$CVT @ eo 
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P_U, ! These are the translation tables 
0_U, ! used when translating to or from 
TP“oO, ! packed decimal. 
19: 
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TP 7, 


ODE_NAME: REF VECTORC, BYTE); ! Used in error messages. 


U; ! String truncated. 


signalled rather than ‘reserved operand’. 


Needed so that ‘‘conversion error’’ can be 
Used when signalling underflow. 


Tells if this is a packed decimal conversion. 
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Ph igsase 
DEBUG. SRCJDBGCVTDX.832;1 


; 0 ? } } Literals. 

H 5 1 LITERAL 

; 0336 1 

: $06 O88 10s L val 

; ' Some general values: 

: $07 O39 1 . 

; 208 0340 1 K_FIRST_LONGWORD = 0, ! Position of first Longuerd in buffer. 

z 209 0341 1 K_INTMES_DATA_LENGTH = 32 ! Intermediate data buffer Length 

> 210 O34¢ 1 K-OUTPUT BUFFER LENGTH = $2, i Output buffer Length 

s @ti 0343 1 K-LRGST_Qu = 655 ' Largest unsigned word. 

: gig 0344 1 K-LRGST-LU = 4294967295 | Largest unsigned Longword. 

: 21 65 1 KILRGST-NEG_L = -2147685648 i Largest negative longword. 

; 214 0346 1 KLRGCLSSUP~= DSCS$K_CLASS_UBS, ! Largest CLASS supported by routine 

; 215 0347 1 K_SMLCLSSUP = DSCSK GLASS. " ! Smallest CLASS supper ted y routine 

; 216 0348 1 K-MAX_DATA_TYPES = &3, ! Total number of DATA TYPES in the standard 
; 217 0349 1 K-MAX_CLASSES = 15, ! Total number of classes supported, 

> 218 0350 1 ! including the error case 0. 

; ay 0351 1 K_MIN_CLASS = DSCSK_CLASS_S ' Smallest class supported. 

; 220 O33¢ | K"MAX-CLASS = DSCSK-CLASS_UBS, i Largest class supported. 

3 ge 0353 1 K-MAX_CLASS_STA = DSCSK_CCASS_UBA, ! Max. class number supported by standard. 
3 gee 0354 1 K_MIN_DTYPE_STA = DSCSK_DTYPE_V, ! Min. data type number supported by standard. 
.. dae 0355 1 K_MAX_DTYPE_STA = DSCSK_DTYPE_SVU, ! Max. data type number supported by standard. 
> 224 0356 1 K-ACTOAL_CLASSES = 7, ' Total classes that are allowed by the STATES table. 
3; 225 0357 1 K-MSTNEGERR = -7, ! Most negative error state 

; 226 0358 1 K_LRGST_NEG_B = -128 ' Largest negative signed byte. 

s 6¢er 0359 1 K_LRGST_NEG_W = -32768, ! Largest negative signed word. 

3 en 0360 1 K_LRGST_B = 127 ' Largest positive signed byte. 

3 $92 0361 1 KILRGST-W = 32767, ' Largest positive signed word. 

; 230 peg 1 K_LRGST_BU = 255 ' Largest unsigned byte. 

; 231 0363 1 K-LRGST“L = 2147483647, i Largest signed longword. 

; és 0364 1 K-PACK_CU_LEN = 10, 

$ 233 0365 1 

3; 234 0366 1 

; @s 0367 1 ! Status returned by FIND_CVT_PATH. 

: 236 0368 1 : 

3 €or 0369 1 K_UNSCLAROU = -1, ! Unsupported CLASS by routine. 

: 238 0370 1 K_UNSDTYROU = “§° ! Unsupported DATA TYPE by routine. 

; 239 0371 1 K_UNSDESROU = -3, ! Unsupported descriptor by routine. 

: 240 ba58 1 K_UNSDESSTA = -4, ! Unsupported descriptor by standard. 

: 241 03735 1 K_UNSCLASTA = -5, ! Unsupported CLASS by standard. 

; 242 0374 1 K_UNSDTYSTA =_-6, } pnoupeor tee DTYPE by standard 

; 245 0375 1 K_INVNBDS = -7, ! Invalid NBDS 

3 See 8376 1 ' because either array size is larger 

: 245 0377 1 ! than a WU or it is not a one 

: 246 0378 1 ! dimensional array. : 

; 247 0379 1 K_SUPPORTED = 1, ! This descriptor is supported, and valid. 
ay 

: 250 0382 1 ! These are the values of the members of K_ACTUAL_CLASSES: 

; 251 383 1 ! (K_ACTUAL_CLASSES being those classes that not only exist, but are 

3 $26 0384 1 ' actually Used by the caller. Any other valid classes not in this 

; 254 tH ! } group are presently treated as an error condition.) 

: 202 tet 1 K_STATE1_CLASS_S = DSCSK_CLASS_S, 

; $28 388 1 K_STATE2_CLASS_D = DSCSK_CLASS_D, 

: 2o7 0389 1 K_STATE4 CLASS_A = DSCSK_CLASS_A, 
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12286871 98e $3330 i28 DEBUG. SRC IDBGCVIDX.B3251 
R_NEDS-LRGFLTCBPLA = 3%, 
K_NBDS_DEC = 
K-NBDS-NBDS = 36, 
Length of source and destination info records in bytes. 
The info records are used to hold information gathered in FIND_CVT_PATH, 
so that it can be easily recovered and used by DBGSCVT_DX_DXx. 


-SRC_INFO_LENGTH = 8, 
DST-INFO"LENGTH = e. 


~TEMP_BUF-LENGTH = 


efine bit patterns for calling OTS conversion routines. 


GN_TABS 


D 
IGN_BLKS = 1, 
ENB-UNDERFLOW = 4, 
IGN~ = 16 
ENB“SCALE = 64, 


Bit map to use to set all arithmetic traps 
K_SET_ARITHMETIC_TRAP = 32 + 64 + 128; 
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' Macros. 


! 
' 
MACRO 


These macros define portions of intermediate data buffer. 
! x, 
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: This macro calculates final states given the current state and the token. 
1 FINAL STATE (CLASS, DATA_TYPE) = 

: (tk FAR DATA THPES * 

: = FROM K_MIN_CLASS TO K_MAX_CLASS OF 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: These are presenty the only classes permitted. 


LSTATE1_CLASS_S): 0; 
STATE2_CLASS_D): 
STATE4 CLASS_AJ: 
E9-C 
E10_ 
E11_ 
E13_ 
iN 
G_ERROR ("DBGCVTDX: invalid class"); 
END; 
TES 
END ) + DATA_TYPE) 3, 
Again, the SRC and DST_INFO records are filled in by FIND_CVT_PATH 
so that information concerning the source and/or destination descriptors 
is readily available to DBGSCVT_OX_Dx. 


These macros are used for SRC_INFO or DST_INFO scale fields. 
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18-5 -1984 :57:30 Ax-11 3 
12-8 08= 138 93:37:20 DEBUG. & 5 Hf 
' 
M_SCALE = 0, 0, 8, 1 
4-BIN 


S i, 
“BIN_SCALE = ?, 1, 1,°0 %, 


This macro is used for SRC_INFO or DST_INFO Length field. 
M_LEN = 5, 0, 16, 0 %, 


: Define the start state. 
START_STATE = VECTOR CK_MAX_CLASSES, BYTE, SIGNED) %, 


! These MACROs are defined for the purpose of clarity, less typing, and anticipation 
: of future support of BUILTINs. ay : =" . 


ASHP = =: DBGSCVT_ASHP_R1 3, 
CMPH = DBGSCVT“CMPH"R1 & 
CVTDH = DBGSCVT“CVTDA_R1 &, 
CVTHD = DBGSCVTCVTHD-R1 &. 
CVTHF = DBGSCVT“CVTHF-R1 &. 
CVTHG = DBGSCVT“CVTHG-R1 &. 
CVTGH = DBGSCVT“CVIGH-R! &. 
CVTLB = DBGSCVT“CVTLB-R1 &. 
CVTLH = DBGSCVT“CVTLH-R1 3. 
CVTLW = DBGSCVT“CVTLW-R1 & 
CVTRDQ = DBGSCVT“CVTRDG_R1 &, 
CVTRHL = DBGSCVT“CVTRHL-R1 3. 
CVTRHO = DBGSCVT“CVTRHO-R1 %. 
CVTRHQ = DBGSCVT"“CVTRHO-R1 % 
CVTROUD = DBGSCVT“CVTROUD_R1 &, 
VTROUH = DBGSCVT"CVTROUH-R1 %. 
DIVD2 = DBGSCVT“DIvD2_RT 3%, 
DIVH2 = DBGSCVT“DIVH2-R1 3. 
DIVP = DBGSCVT“DIVP_R1 
MULD2 = DBGSCVT"MULD2 Rt a 
MULH2 = DBGSCVT“MULH2-R1 X. 
MULP = = _ DBGSCVT“MULP_R1 &, 


! The following macros scale the intermediate data. 


i These macros scale the longword in INTMED_DATA buffer. 
M_SCALE_L_L = 


ee ee a a a ee a el el el ee el el ee ee el el el el ee el el el ae el el el el el el ee 


WHICE™ .BIN_SCALE GTR 0 DO 


I 
nN” 

MED DATA CLONG. 1) = .INTMED_DATA [S_LONG_1)*2; 
CALE = .BIN_SCALE - 1; 


SCALE LSS 0 DO 


N 
D_DATA CLONG_1] = .INTMED_DATA ([S_LONG_1)/2; 
CALE = .BIN_SCALE ¢ 1; 


3 
ERIS MESRCERRWAGLL.SAtSEE 16st rove of 


DEBUG.SR TDX.B32;1 


" WHILE, SCALE GTR 0 DO 

™ INTMED DATA CLONG 1] = .INTMED_DATA CS_LONG_1)#10; 
" AEE ~SCALE = T; . TT ina 

Ll END; 

w WHILE .SCALE LSS 0 DO 

BEGIN 

™ INTMED_DATA CLONG_1] = .INTMED_DATA (S_LONG_13/10; 
” SCALE = .SCALE + T; 

ii] x END 


: Convert L to OU and scale it. INTMED_DATA is used for L and OU 
M_SCALE_L_OU = 

IF .INTMED_DATA CS_LONG_1] LSS 0 

THEN 


INTRED DATA DATA Lons-2 4° hege- (. INTMED_DATA CS_LONG_1)); 
END? 
me ae GTR 0 DO 
LIBSSCVT _SCALE_OU_UP_BY_10_R1 (INTMED_DATA); 
—* TSCALE™= T; 


vines 3 Yoana LSS 0 DO 
LIBSSCVT ott -OU_DOWN_BY_10_R1 (INTMED_DATA); 
© TSCALE™+ T; 


WILE DIM. SCALE GTR 0 DO 
DBGSCVT_ SCALE OU ve xy -2. hs CINTMED_DATA) ; 
BINT SCACE = .BIN7S 


WHILE -B1N_ SCALE LSS 0 DO 
DBGSCVT_SCALE_OU Bown BY 4. R1 (INTMED_DATA); 
BIN. SCACE = .BIN-SCALE + 


SESSSSSSRELSSPESERSSSSESSESSESSESSESSESSSS 


! Convert L to D, and scale it. INTMED_DATA buffer is used for L and D. 


i SCAL 
rile P INTMED DATA, INTMED_DATA); 


WHILE .BIN_SCALE GTR 0 DO 
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7 
216: 
(UPLIT (%D°2'), INTMED_DATA); 
CALE = .BIN_SCALE = 1; 


mwoszw 
ze--cm 


N_SCALE LSS 0 DO 


(UPLIT (%D'2"), INTMED_DATA); 
CALE = .BIN_SCALE + 1; 


moocmgm 
2am 
“YnNaze 


ALE GTR 0 DO 
(UPLIT (2D°10"), INTMED_DATA); 
= .SCA 1; 


LE - 


em 


aoa 


ALE LSS 0 DO 
(UPLIT (%D'10"), INTMED_DATA); 
= SCALE + 1; 


MmMnogm mun 


DEBUG. 


hc} 


Convert L to P, and scale it. INTMED_DATA is the buffer for L and P. 


M_SCALE_L_P = 
IF .INTMED_DATA CS_LONG_1] LSS 0 THEN SRC_INFO [S_SIGN) = 1; 


NO_DIGITS = 31; 
CVTLP (INTMED_DATA, NO_DIGITS, INTMED_DATA); 


IF SCALE NEQ 0 
THEN 


BEGIN 
MOVP (NO_DIGITS, INTMED_DATA, TEMP_BUF1); 
IF .CVT_ROUND_FLAG 


-3 
8G 


2 
C 


vV4.0-742 
VTDX.832;1 


N 
ASHP (SCALE, NO_DIGITS, TEMP_BUF1, ZREF (5), NO_DIGITS, INTMED_DATA) 
ASHP (SCALE, NO_DIGITS, TEMP_BUF1, ZREF (0), NO_DIGITS, INTMED_DATA); 


END; 

WHILE BIN. SCALE GTR 0 DO 
MOVP (NO_DIGITS, INTMED_DATA, TEMP_BUF 
MULP (ZREF (1), UPLIT (2P'2'S, NO_DIGI 
BIN_SCALE = .BIN_SCALE - 1; 
END; 

WHILE .BIN_SCALE LSS 0 DO 
MOVP (NO_DIGITS, INTMED_DATA, TEMP_BUF1); 


1); 
TS, TEMP_BUF1, NO_DIGITS, INTMED_DATA); 
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GCVTDX 18529-1984 :57:30 AX-11 Bliss-32 v4.0-762 Pa 2 
yOes000 14-Sep-1986 ; 16:44 DEBUG. SRC JDBGCVTDX.B32;1 - (35 
; $9 mM 07 0 1 DIVP (XREF (1) UPLIT CaP 2" ), NO_DIGITS, TEMP_BUF1, NO_DIGITS, INTMED_DATA); 
; 570 m 0701 1 BIN_SCALE = .BIN_SCALE 
: 4 " ? ¢ END 
: i 704 1 %, 
: he 708 | 
46 107 Scale the OU in INTMED_DATA buffer. 
; 278 " 0709 M_SCALE_OU_OU = 
; 380 mori] | WHILE .SCALE GTR 0 DO 
; 282 mO718 1 LIBSSCVT SCALE _OU_UP_BY_10_R1 (INTMED_DATA); 
; 28 mO714 1 SCALE = TSCALE™= 1; 
: 388 One tt 
: 286 " a WHILE .SCALE LSS 0 DO 
; 28s m0719 1 LIBSSCVT_SCALE_OU_DOWN_BY_10_R1 (INTMED_DATA) ; 
: 589 M0720 1 SCALE = TSCALE~+ 1; 
OY - 
: 292 m 07 § 1 WHILE .BIN_SCALE GTR 0 DO 
: 59 M0724 1 BEGIN 
: 594 m0725 1 DBGSCVT SCALE OU_UP BY _2_ Rt (INTMED_DATA); 
: 595 m 07 6 1 BIN_SCACE = .BINZSCALE 
Be RE - 
: 398 " oF ; WHILE :BIN. SCALE LSS 0 DO 
: 600 M0731 1 DGSCVT SCALE_OU_DOWN_BY 2. R1 (INTMED_DATA); 
> 601 4 07 ; 1 SCACE = .BINTSCALE + 
: 60 "0 1 eu 
: 60 M0734 1 
3 604 0735 #1 ae 
2 wey 
; 607 0738 #1 : Convert OU to D, and scale it. INTMED_DATA is used for OU and D. 
: 806 moro | A_SCAL 
> 610 m 0741 1 CE nous CINTMED_DATA, TEMP_BUF1): 
: 611 m 0748 CHSMOVE (8, TEMP_BUFI, INTMED_DATA); 
; ei8 " ie WHILE BIN SCALE GTR 0 DO 
> 615 a 746 1 RULD2 (UPLIT (xD"2") ,_INTMED_DATA); 
; 616 ¥ 074 1 BIN_SCALE = .BIN_SCALE = 1; 
: ols ope | ene: 
; 619 " 750 WHILE. -BIN_ SCALE LSS 0 DO 
> 621 x 73¢ 1 DIvDg (UPLIT (4D'2*). INTMED_DATA); 
; § ¢ m 0753 1 BIN_SCALE = .BIN_SCALE * 1; 
ate be 
: 625 " 22 1 WHILE .SCALE GTR O DO 


3 
NER GEER Bal 


DEBUG. 


: $26 M0757 1 BEGIN 

: 6 m 07 8 1 MULD2 (UPLIT (%D°10"), INTMED_DATA); 
3; 6 3 4 07 1 SCALE = .SCALE = 1; 

2 oe = 

: 631 Ni 766 1 WHILE .SCALE LSS 0 DO 

3; 6 ¢ 4 07 1 BEGIN 

: 6 M0764 1 DIVD2 (UPLIT (%D'10"), INTMED_DATA); 
; 6 m 0765 1 SCALE = .SCALE + 1; 

: 635 4 766 1 END 

; 6 M0767 1 

: 6 768 1 %, 

: 836 3 

3 640 ae ! Convert OU to H, and scale it. INTMED_DATA is used for OU and H. 
; 64g mn ores | M_SCALE_OU_H = 

> 64 ” 077% 1 CVTROUA (INTMED_DATA, TEMP_BUF1); 

; G64 fs 0779 CHSMOVE (16, TEMP_BUF1, INTMED_DATA); 

; 646 ” $758 1 WHILE .BIN_SCALE GTR 0 DO 

> 66 0778 1 BEGIN 

: 648 "0779 1 MULH2 (UPLIT (%H'2"), INTMED_DATA); 
> 649 ™ 0780 1 BIN_SCALE = .BIN_SCALE = 1; 

2 nts - 

: 65¢ 4 ores 1 WHILE .BIN_SCALE LSS 0 DO 

: 65 m 0784 1 BEGIN 

; 654 m 0785 1 DIVH2 (UPLIT (%H'2'), INTMED_DATA); 
> 655 ” 0786 1 BIN_SCALE = .BIN_SCALE ¢ 1; 

: £28 mores 4 vats 

i 658 m 0789 WHILE SCALE GTR 0 00 

; 660 M0791 1 MULH2 (UPLIT (3H'10"), INTMED_DATA); 
> 661 & 0798 1 SCALE = .SCALE - 1; 

Be BRE 3 

z 664 A" a796 WHILE .SCALE LSS 0 DO 

: 666 mOroF | DIVH2 (UPLIT (2H'10"), INTMED_DATA); 
3 667 0798 1 SCALE = .SCALE + 1; 

; 668 " 0799 END 

; ris Bot 1 zt, 

oh He 

; ers Hin : : Convert L to H, and scale it. INTMED_DATA is used fer L and H. 
; 675 " 1 M_SCALE_L_H = 

3 676 : rtf : CVTCH” (INTMED_DATA, INTMED_DATA); 

; 678 " 809 WHILE zBIN SCALE GTR 0 DO 

: 680 “ eit 1 MULH2 (UPLIT (ZH'2"), INTMED_DATA); 
> 681 7 1 1 BIN_SCALE = .BIN_SCALE = 1; 

3; 682 m 081 1 END; 


3 
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3 3 m 0814 1 

; 6 m 0815 1 WHILE .BIN_SCALE LSS 0 DO 

; 685 ” 1 1 BEGIN 

; 6 M0817 1 DIVH2 (UPLIT (%H'2"), INTMED_DATA); 
: 6 m 0818 1 BIN_SCALE = .BIN_SCALE ¢ 1; 

; 688 M 081 1 END; 

3; 689 i} 1 

5 690 m 0821 1 WHILE .SCALE GTR 0 DO 

; 691 " : 1 BEGIN 

; 69 te 1 MULH2 (UPLIT (%H'10"°), INTMED_DATA); 
; 69 M0824 1 SCALE = .SCALE = 1; 

5 694 M0825 1 END; 

: 695 8 $ 1 

3 696 M 1 WHILE .SCALE LSS 0 DO 

; 697 m 0828 1 BEGIN 

: 698 m 0829 1 DIVH2 (UPLIT (%H'10"), INTMED_DATA); 
; 699 m 0830 1 SCALE = .SCALE + 1; 

3; 700 m 0831 1 END 

; 701 4 08 ¢ 1 

: 70 0833 1 ” 

: 70 0834 1 

3; 704 0835 1 

; 705 08 $ 1 ! Scale D in INTMED_DATA. 

; 706 O85 1 i 

: 70 m 0838 1 M_SCALE_D_D = 

: 708 m 0839 1 

: 709 B 0840 1 WHILE .BIN_SCALE GTR 0 DO 

: 710 m 0841 1 BEGIN 

: 711 4 0842 1 MULD2 (UPLIT (%D'2*), INTMED_DATA): 
; rie m 0843 1 MULD2 (UPLIT (%D°2"), INTMED“DATA+8); 
: 71 M0844 1 _SCALE = .BIN_SCALE = 1; 

> 714 m 0845 1 ; 

: 715 ° 0846 1 

: 716 m 0847 1 WHILE .BIN_SCALE LSS 0 DO 

: 717 m 0848 1 BEGIN 

: 718 m 0849 1 DIVD2 (UPLIT (%D'2"), INTMED_DATA);: 
+ 719 ™ 0850 1 DIVD2 (UPLIT (%D'2"), INTMED-DATA+8); 
: 720 m 0851 1 BIN_SCALE = .BIN_SCALE + 1; 

: 721 * OBD¢ 1 END? 

s ise ™ 0853 1 

: 7 m 0854 1 WHILE .SCALE GTR 0 DO 

+ 726 m 0855 1 BEGIN 

: 725 « 896 1 MULD2 (UPLIT (%D'10"), INTMED_DATA): 
: 7 6 « 8 1 MULD2 (UPLIT (%D°10'), INTMEDDATA+8); 
a. m 0858 1 SCALE = .SCALE - 1; 

: 728 # 859 1 END; 

3; 729 6 1 

2 m 0861 1 WHILE .SCALE LSS 0 DO 

> 731 a ‘ 1 GIN 

: 7 ¢ ° 1 Divbg (UPLIT (%D°10"), INTMED_DATA); 
: 7 a 1 DIVD2 (UPLIT (%D'10"), INTMED“DATA+8); 
#, m 0865 1 SCALE = .SCALE + 1; 

: 735 * 6 1 
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' Convert D to H, and scale it. 


MH SCALE _D_H = 


INTMED_DATA is used for D and H. 


Cy EON™ CINTMED DATA, TEMP_BUF1) 


CVTDH (INTMED“DATA+8 
CHSMOVE (16, TEMP_BUF1, 


INTMED Giraet6); 


—. gbin. SCALE GTR 0 DO 


MUCHS hy T (2H' 
he CUPLIT (2H' 


SCALE = Gee: 


ENDS 


—, Pt ie SCALE LSS 0 DO 


DIVHe C(UPLIT (2H* 
DIVHe CUPLIT (ZH' 


BIN_SCALE = .BIN_ Scale. 
END; 

WHILE .SCALE GTR 0 DO 
BEGIN 


MULH2 (UPLIT (2H" 19 


MULH2 (UPLIT (%H' 
i = .SCALE - 1; 


WHILE .SCALE LSS 0 DO 
BEGIN 
DIVH bt (ZH"1 
DIVH CUPLIT (ZH"1 
SCALE = .SCALE + 1; 
END 


,° INTMED_DATA); 
), INTMED-DATA+ 


t INTMED_DATA); 
), INTMED-DATA+ 


INTMED_DATA is used for G and H. 


: Convert G to H, and scale it. 


M_SCALE_G_H = 
EGIN™ 


CVTGH CINTMED_DATA, TEMP B 


sak. CINTMED-DATA+8 


INTHED Vitae): 


CHSMOVE (16, TEMP eth INTMED_DATA); 
WHILE .BIN_SCALE GTR 0 DO 
BEGIN 


MULH? (UPLIT (ZH* 
MULHe (UPLIT (ZH" 
Bie SCALE © »-BIN_SCA 


BIN. SCALE LSS 0 DO 


IN 
Hf (UPLIT (ZH* 
He (UPLIT (23H’ 


WHIL 


3° INTMED_DATA) ; 
heen ee DATA+ 


re df 
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V 18-s¢ -1984 57:30 AX-11 Bliss-32 V4.0-742 Page 17. 
12-801 984 $3 16:44 DEBUG. SRC IDBGCVIDK .B325 1 . by 

; $2¢ 0985 1 ' 
; : 5 m 09 $ 1 M_SCALE_P_P = 
3 528 r Ms i } NO_BIGITS = .SRC_INFO CS_LENJ; | 
; B28 : 9494 ! IF (CMPP (NO_DIGITS, INTMED_DATA, ZREF (1), .PACK_ZERO) LSS 0) THEN SRC_INFO CS_SIGN) = 1; 
; | 
; 860 M0991 1 IF .SCALE NEQ 0 
; 861 M 8338 1 THEN 
; 86 m 0993 1 BEGIN 
3; M0994 1 MOVP (NO_DIGITS, INTMED_DATA, TEMP_BUF1); 
3 44 : 34d : IF_.CVT_ROUND_FLAG 
3 rg . 0397 , ASHP (SCALE, NO_DIGITS, TEMP_BUF1, ZREF (5), NO_DIGITS, INTMED_DATA) 
; 868 m™ 0999 1 ASHP (SCALE, NO_DIGITS, TEMP_BUF1, %REF (0), NO_DIGITS, INTMED_DATA); | 
; 869 m™ 1000 1 ND; 
; 870 ™ 1001 1 
3; Sr M Ione 1 | 
>; 87 M1005 1! I (PS) added the following code, because, if I deposit_a packed decimal 
; 87 m™ 1004 1! number 999.888 into a 4 digits decimal number scaled - want to get 
; 874 m1005 1! a result of 99.88, instead of Later on I will get overflow error, and 
; 875 ™1006 1! have nothing as result. Check to see if the siganificant digits of 
; B76 . 10s : } source is greater than the siganificant digits of the destination. | 
; 878 ™ 1009 1! This piece of code is used only if both operands are packed. 
; 879 ™1010 1! | 
; 880 m1011 1 
: 881 M 3 1 IF (.SOURCECDSCSW_LENGTH] + .SOURCECDSC$B_SCALE) GTR 
; 882 M 101 1 -DESTINATIONCDSCS$W_LENGTH] + .DESTINATIONCDSC$B_SCALEJ) AND 
; 883 M1014 1 (.SOURCECDSCS$B_DTYPE) EQL DSC$K_DTYPE_P AN 
3; 884 m1015 1 -DESTINATIONCBSCS$B_DTYPE] EQL BSC$k_BTYPE_P) 
> 885 M1016 1 
; 886 ™ 1017 1 BEGIN 
; 887 ™1018 1 OCAL 
; 888 m1019 1 HIGH_NIBBLE_PTR: REF VECTORC,BYTE), 
; 889 m™ 1020 1 LOW_RNIBBLE_PTR: REF VECTORC,BYTE); 
; $90 m 1021 1 
; 891 M 1366 1 ; , 
; 89 m 1023 1 ! Point to the last digits. 
; «89 m 1024 1 ‘ 
; 894 m1025 1 HIGH_NIBBLE_PTR = INTMED_DATA + 16 = 1; 
; 895 M1026 1 
; 896 m™ 1027 1 “ oat 
; 897 ™ 1028 1 ! Backup the pointer to the siganificant digit 
; 898 ™ 1029 1 ! needs to be truncated. Zero out everything 
; 899 ™ 1030 1 ! before that. 
; 900 1031 1 ! 
: 901 m 10 § 1 LOW _NIBBLE_PTR = .HIGH NIBBLE_PTR - 
: 90 M10 1 (. DESTINATIONCOSC$W_LENGTH) / 2 + 1) + 1; 
; 90 m 1034 1 
: 904 ™ 1035 1 . 
: 905 M10 § 1 ! If destination digits is even, we need to 
3 208 . + : zero out one nibble. Note: this may be already zero. 
3 424 : 1038 : IF (.DESTINATIONCDSC$W_LENGTH] MOD 2) EQL 0 
3; 910 M1041 Tf LOW_NIBBLE_PTRCO) = .LOW_NIBBLE_PTRCLO] AND 2x'OF'; 


SRS Se Sa a ee Be meeps naa 


DBGCVTDX i$-se -1984 :57:30 AX-11 Bliss-32 V4.0-742 Page 18 
v04-000 14- att fi 93:37:20 DEBUG.SR RCIDBGCV VTDX.832;1 . (3) | 
; 911 i} 19t6 1 

: aig M1065 1 

; i M1044 1 ! Zero out everything before it. Note: this may be already 
: 9146 m1045 1 ' zero. 

; 915 i} eg 1 

; 916 Mm 104 1 LOW_NIBBLE PTR = .LOW_NIBBLE_P 

; a1? 4 1048 WHITE bow NIBBLE_PTR~GEQ INTMED.. DATA DO 

; 919 ™ 1050 1 COU_NIBBLE_PTRCO) = %x'00'; 

; 920 m 1051 1 LOW _NIBBLE_PTR = LOW _NIBBLE_ PTR = 1; 

; 921 i) 1926 1 END; 

3; 9 ¢ M 132 1 

; 9 m 1054 1 SIGNAL (DBGS$_INUMTRUNC, 1, .DBGSGL_OPCODE_NAME); 
> 924 m1055 1 END 

3 98? ™ 1056 1 

: 926 1057 1 i, 

; 927 1058 1 

; 928 1059 1 

5 36) 1399 ! ' Convert P to OU, and scale it. INTMED_DATA is used for P and OU. 
; 931 | es j M_SCALE_P_OU = 

: 932 ™ 1063 1 NO_BIGITS = tad O CS_LEN]; 

; 933 M1064 1 CVTPS (NO_DIGITS, INTMED DATA, NO_DIGITS, TEMP_BUF1); 
: 934 ™ 1065 1 CLASS_$_DESC tDSCsu._ LENGTH] = .NO- DIGITS + 1; 

s 955 M1066 1 CLASS S_DESC COSCSA_POINTER] = TEMP_BUFI; 

:; 936 M1067 1 OTSSCUT— _'H (CLAS S_5_DESC, TEMP_BUF 2); 

; 937 41068 1 

; 938 ™ 1069 1 IF TENP ure co, 3... @3 

:; 939 ™ 1070 1 THEN 

; 940 41071 1 BEGIN 

: 941 4 us 1 TEMP_BuUF2 (0, 15 -.0) = 0; 

> 942 m 1073 1 SRC_INFO CS_ g16Nd ='1; 

3; 943 ™ 1074 1 END? 

3 944 ™ 1075 1 

3 945 m 1076 1 CVTRHO (TEMP_BUF2, INTMED_DATA); 

; 946 41077 1 

; 947 m 1078 1 WHILE .SCALE GTR O DO 

; 948 41079 1 GIN 

3; 949 ™ 1080 1 LIBSSCVT =the _OU_UP_BY_10_R1 (INTMED_DATA); 

; 950 ™ 1081 1 SCALE = [SCALE-= T; ~ 

; 6951 ” 1086 1 ND: 

3 226 ™ 1083 1 

: 95 m 1084 1 WHILE .SCALE LSS 0 DO 

: 954 ™ 19 7 N 

: 955 m1 1 LIBSSCVT_SCALE_OU.DOWN_BY_10_R1 (INTMED_DATA); 
: 956 m 1087 1 SCALE = TSCALE™+ T; 

; 957 i Hh 43 1 3 

: 958 M i? 9 1 

; 959 ™ 1090 1 WHILE .BIN_SCALE GTR 0 DO 

; 960 ™ 1091 1 EGIN ~ 

; 961 " 1038 1 yet SCALE OU_UP ¢ -2. : CINTMED_DATA); 

3 44 m 109 1 IN_SCACE -BIN IN SCALE 

:; 96 m 1094 1 END? 

3: 964 x 34 1 

: 965 a1 38 1 WHILE .BIN_SCALE LSS 0 DO 

3; 966 " 109 1 IN 

: 967 m 1098 1 DBGSCVT_SCALE_OU_DOWN_BY_2_R1 (INTMED_DATA); 
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N_SCALE = .BIN_SCALE + 1; 


BIN. 
END 


Convert P to D, and scale it. INTMED_DATA is used for P and D. 


M_SCALE_P_D = 
NO_BIGITS = .SRC_INFO CS_LEN); 


In the case of scaled packed, we need to get the scale this way. 
IF; SOURCELDSCSB_CLASS) EQL DSCSK_CLASS_SD 
SCALE = = .SOURCECDSC$B_SCALE]; 


CVTPS (NO DIGITS, INTMED_DATA, NO_DIGITS, TEMP_BUF1); 

CLASS_S_DESC pSC$W_LEN TH] = .NO-DIGITS + 1; 

CLASS _S_DESC CDSCSA_POINTER] = TEAP_BUF1; 

STATUS = OTSSCVT_T_B (CLASS_S_DESC, INTMED_DATA, 0, .SCALE, (K_ENB_UNDERFLOW OR K_ENB_SCALE)); 


IF NOT .STATUS 
THEN 

IF .SCALE LSS 0 
THEN SIGNAL (DBGS_IFLTUND, 1, .DBGSGL_OPCODE NAME) 
ELSE SIGNAL (DBGS_FLTOVF, 1, .DBGSGL_OPCODE_RAME); %, 
Convert P to H, and scale it. INTMED_DATA is used for P and H. 


M_SCALE_P_H = 
NO_BIGITS = .SRC_INFO CS_LENJ; 


: In the case of scaled packed, we need to get the scale this way. 
IF .SOURCECDSC$B_CLASS) EQL DSCSK_CLASS_SD 

SCALE = = .SOURCECDSCS$B_SCALE); 
CVTPS (NO_DIGITS, INTMED_DATA, NO_DIGITS, TEMP_BUF1); 

ESC COSCSW_LENGTH] = .NO-DIGITS + 1; 
DSCSA-POINTER) = TEAP_BUF1; 

IF NOT .STATUS 
THEN 

IF .SCALE 


LSS 0 
THEN SIGNAL (DBGS_IFLTUND, 1, .DBGSGL_OPCODE NAME) 
ELSE SIGNAL (DBGS"FLTOVF, 1, .DBGS$GL_OPCODE_NAME); 2%; 
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3 19 8 1398 | H State Table. 

; 1071 1200 1 ! Start States (all classes). CLASS_TABLE. 

: 1076 1201 1! These are the start state entries. 

s IRF } 8 : } For -_ tet | in the standard there is an entry here. They are: 

; 1075 1206 1! P enone ,J enone ,SD 

3 1378 : 8? : “NCA ,VS ~,VSA ,UBS ~  ,UBA. 

; 1078 1 $9 1 BIND 

3; 1079 1 BB 1 CLASS_TABLE = UPLIT BYTE 

; 1080 1209 1 Z( Start state. ALL classes. )% 

3; 1081 1210 1 (K_UNSCLAROU,,DSCSK_CLASS_S,DSCS$K_CLASS_D,K_UNSCLAROU,DSCS$K_CLASS_A 

3 4 1211 1 »K-UNSCLAROU,K_UNSCLASTA-K_UNSCLAROU,K-UNSCLASTA,DSC$K_CLASS_SD 

; 108 1 \¢ 1 DSCSK_CLASS_NCA,DSCSK_CLASS_VS,K_UNSCCAROU,DSC$K_CLASS_UBS,R_UNSCLAROU): START_STATE; 
: }08s ise | 

; 1288 ' 1 } Remaining States. DTYPE_TABLE. 

; 1088 1 i3 1! This is the rest of the state table. It is separate for space efficiency. 

3; 1089 1218 1 ! Each state contains entries for each data type supported by the standard. 

: 1090 1¢1? 1 ! Note that for space efficiency the final states are not in the vector. 

3; 1091 1220 1 ! Also since each state represents a supported CLASS, if a CLASS is not 

3 1096 1 $3 1 ! supported (by the standard or routine), then the state has no entry in 

; 109 1 ; 1 ! the vector. The index table for the vector will index to the proper place 

3 1094 1223 1! in the vector below. 

3 444 ! : : } The table below shows graphically what descriptors are valid. 

3; 1097 1226 1! DSCSK__DTYPE__x 

: 1098 I$ 71! BU WU LU B WL QF D GH T NO-NL NLO NR NRO NZ P VT AC AZ TF V SV VU SVU 
3; 1099 1228 1 !DSCSK__CLASS_S 6x x KR MKRRMNRMRM KRM M KM OM KM OM x Xx 
3; 1100 1229 1 !DSCSK__CLASS__ x 

3; 1101 1250 1 !DSCSK__CLASS__SD KRM MMR MRK KR MK KM eM OM MX 

: 1i08 1231 1 !DSCSK__CLASS__VS x x x x 

: 110 1 ¢ 1 !DSCSK__CLASS__ s x 

3: 1106 1 ; 1 !DSCSK__CLASS__NCA x x 

3 1105 1234 1 !DSCS$K__CLASS__UBS * x x 
We BRT 

; 1108 1 $ 1 ! Note that these data types are hard coded in (zero based vector, and position 

: 1109 1238 1 ! of each data type is determined be the value of the symbol), so if data type 

3 1110 +H 1 ! values are ever rearranged this table must be rearranged. 

Sie 15¢) 1 BIND 

: 118 1 $§ 1 DTYPE_TABLE = UPLIT BYTE 

3 11146 12435 1 Z( State zero. Class z. )% 

3 1115 1244 1 Z( State one. Class s. )% 

: 1116 1245 1 (K_UNSDTYROU,DSCS$K_DTYPE_V,DSCSK_DTYPE_BU,DSCSK_DTYPE_WU,DSCSK_DTYPE_LU 
3111 1 46 1 -DSCSK_DTYPE_QU,DSTSK DTVPE B,OSCSK_DTYPE Ww. DSCSK_DTYPE_L,DSCSR_DTY 

:11°8 1247 1 -DSCSK-DTYPE—F ,OSCSK_DTYPE 6,OSCSK_BTYPE FC.DSCSK DTYPE dC. DSCSR DIVPE T 
3111 1 rt 1 »DSCSK_DTYPE_NU,DSCSR_DTYPE_NL bscSk DTYPE_NLO,DSCSK_DTYPE_NR,DSCSK_DTYPE_NRO 
> 1120 1249 1 -DSCSK~DTYPE-NZ DSC Sx DTYPE-P psc K_OTYPE 71 ,K_UNSDTYROU,K-UNSDESSTA 

> 1121 1250 1 ;K_UNSDTYROU7DSCSK_DTYPE_0,OSC$K_DTVPE G,.DSC$k~DTYPE_H,DSCSK DTYPE_GC 

3171 ; 1251 1 »DSCSK_DTYPE_HC,K_ONSDTYROU,K_UNSDTYROO,K_UNSDTYROU,R_UNSDTYROU 

311 1 2g 1 »K_UNSDESSTA{K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,DSCS$K_DTYPE_TF 
: 1126 1253 1 ~DSCSK_DTYPE_SU,K UNSDTY ROD 

: 1125 1254 1 %( State two. (CTass d. ) 


4 
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Mier yengee ORs F3ikeiee || HoeSdS Ohi sbacevi bi esses of et 
5 eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
§ Pritt wrerttt ttre ett tte ent SSTA,K_UNSDESSTA 
eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,DSCSK DTYPE_T 
: eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
0 eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
1 eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
¢ oK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
K_UNSDESSTA,K UNSDESSTA,K_UNSDESSTA 
4 %( State three. Class v. )% 
5 Z( State four. Class a. )% 
eK UNSDTYROU,K_UNSDTYROU,DSCSK_DTYPE_BU,K_UNSDESROU,K_UNSDESROU 
eK UNSDTYROU,K_ SDESROU,K_UNSDESROU,K_UNSDESROU,K UNSDESRO 
+KUNSDESROU,K_UNSDESROU,K_-UNSDTYROU,K_UNSDTYROU,DSCSK_DTYPE_ 
oK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESST 
eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDTYROU 
eK UNSDTYROU,K_UNSDTYROU,K_UNSDESROU,K_UNSDESROU,K_UNSDTYROU 
eK UNSDESSTA,K_UNSDTYROU,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA | 
eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
State five. Class p 


x( a} | | 
Z( State six. Class ‘undefined’ )% 
%( State seven. Class j. 
Z( State eight. Class ‘undefined’ )% | 
Z( State nine. Class sd. )% 

,K_UNSDESSTA,K_UNSDESSTA, DSCS$K_DTYPE_BU,DSCSK_DTYPE_WU.DSCS$K_DTYPE_LU 

-DSCSK_DTYPE_Q0,DSCSK_DTYPE B,DSCSK DTYPE W,DSCSK_DTYPE_L DSCSK DTYPE a 

$x OTYP C$k_BTYPE FC.DSCSK-DTYPE-DC,DSCSR_DTYPE T 

-DSCS$K_DTYPE_NU,DSCSR_DTYPE_NL,DSCSK_DTYPE_NLO,DSCSK_DTYPE NR, DSCSK_DTYPE_NRO 
“DSCSK DIYPE-NZ .DSCSK DTYPE-P,k UNSDESSTA.R UNSDESST DESSTA 
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»K_UN 
‘K_UNSDESSTA{DSCSK_DTYPE_O,BSCSR_DTYPE G, DTYPE_H,OSCSK_DTYPE_GC 
-DSC$K_DTYPE_HC.K_ONSDESSTA,K_UNSDESSTA,k_UNSDESSTA,R_UNSDESSTA 
»K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
»K-UNSDESSTA,K-UNSDESSTA,K_UNSDESSTA 

%( State ten. Class nca. )% 
»K_UNSDTYROU,K_UNSDTYROU,DSCS$K_DTYPE_BU,K_UNSDESROU,K_UNSDESROU 

91 »K_UNSDTYROU,K_UNSDESROU,K_UNSDESROU>K_UNSDESROU,K_UNSD 

9 K_-UNSDESROU,K_UNSDESROU,K-UNSUTYROU,K_-UNSDTYROU,DSCSK_DTYPE_T 

9 -K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

94 »K-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDTYROU 

95 »K-UNSDTYROU, K-UNSDTYROU, K-UNSDESROU, K-UN .DESROU,K-UNSDTYROU 

96 »K-UNSDESSTA,K_UNSDTYROU,K_-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

9 »K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

9 »K-UNSDESSTA,K UNSDESSTA “UNSDESSTA 

Z( State eleven. Class vs. 5% 

00 »K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

01 »K-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA | 

0 »K-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,DSCSK_DTYPE_T 
»K-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
»K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

5 »K-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 
»K-UNSDESSTA,K_UNSDESSTA,K-UNSDESSTA,K UNSDESSTA.K UNSDESSTA 
»K-UNSDESSTA,K-UNSDESSTA,DSCSK_DTYPE_VT,DSC$K_DTYPE_AC 

$ ;DSCS$K_DTYPE_AZ,K_UNSDESSTA,K_ONSDESSTA,K_UNSDESSTA 

Z( State twelve.” Class vsa. )% 
10 Z( State thirteen. lass ubs. )% 
11 »K_UNSDTYROU,DSC$K_DTYPE_V,DSCSK_DTYPE_BU.DSCSK_DTYPE_WU,DSC$K_DTYPE_LU 
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3 : 1 16 9 ! GLOBAL ROUTINE DBGSCOVER_DX_DX (SRC_VALUE_DESC, DST_VALUE_DESC, CVT_ROUND_FLAG) = 
:1 08 1431 1! FUNCTION 

3 1 14 § 1} This routine is a cover function for DBGSCVT_DX_DX. It has 

3; 1305 14 1 3 two purposes: 

3 1 Be 1434 1! 1. To declare a handler which screens errors and changes them to 

3 3 1435 1! im appropriate DEBUG error. 

3 ; 8 1¢ : } - To dummy in the correct class for DBGSCVT_DX_{x 

: 1310 14 8 1 | INPUTS 

3 : 1} \tzp : SRC_VALUE_DESC = Pointer to a value descriptor to be tyne-converted. 
; i 1§ 1441 i DST_VALUE_DESC = Pointer to the target value descriptor. 

: 1315 1208 1/ CVT_ROUND_FLAG = A flag set to TRUE to indicate the rounding takes 
3 1 18 1444 : } place in conversion. 

: i 18 1466 1! ouTPuTS 

3; 131 1447 1! A pointer to a value descriptor is returned. The target descriptor 
3 ; 31 1oe8 : is filled in with the result of the conversion. 

ia ee 

: 1324 145 

3; 1325 1288 SRC_VALUE_DESC: REF DBGSVALDESC, 

: 13 $ 1628 DST_VALUE_DESC: REF DBGSVALDESC; 

: 1328 145 LOCAL 

3; 1329 1489 Ne ' A + parameter. 

.% es FCODE ! Fcode for the data object 

3; 1331 145 T Tus, ' Return status from typeid check. 

3 3 ¢ 1460 SOURCE CLASS: BYTE, ! Class of Source VMS descriptor 

3 1 1461 GET_CLASS: BYTE, ! Class of Target VMS descriptor 

3 1 1006 SOURCE_DTYPE: BYTE ' Dtype of Source VMS descriptor 

3 1335 146 TARGET_DTYPE: BYTE ! Dtype of Target VMS descriptor 

:1 1464 SOURCE“LENGTH: WORD, i Length of Source VMS descriptor 

3 1 3 1465 TARGET _LENGTH: WORD ' Length of Target VMS descriptor 

3 1 1606 ESC_VAL: REF DBGSVALDESC ! Pointer to source or target value descriptor 
3 1339 146 DESC"PTR: REF BLOCKL,BYTE), i Pointer to source or target descriptor. 
3 1340 1468 SOURTE: REF BLOCK BYTE}. ' address of VMS descriptor 

3 1341 1469 TARGET: REF BLOCKL,BYTEJ, ' Address of VMS descriptor 

3 7 ¢ 1470 TYPE ID_INDEX; ! Typeid index to perform the typeid 
: ; ? \ort : check 

$ 1345 1298 

: : $ Vane : Recover the VMS descriptors. 

3 1348 1476 SOURCE = SRC_VALUE_DESCCDBGSA_VALUE_VMSDESC); 

; : $3 3 TARGET = DST_VALUE_DESCCDBGSA_VALUE _VMSDESCJ; 

: 1351 1299 

3 ' 26 1¢ Save pointer to result. 

: : 2 \ 4 SAVE_RESULT = .DST_VALUE_DESCCDBGSL_VALUE_POINTER]; 

: 135 1484 

: 4 3$ 1485 ! Dummy in the correct class field. (First saving away the old ones.) 
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3 1 14 . 

3 1 14 SOURCE _CLASS = .SOURCECDSC$B_CLASS); 

. o 14 3 TARGE ogthss = ,TARGETLOSCSB_CLASS); 

3 3 14 SOURCE _DTYPE = .SOURCELDSCS$B_DTYPE); 

3 1 1490 TARGET_DTYPE = . TARGET psce DTYPEJ; 

8 : 1430 SOURCE LENGTH = .SOURCECDSCS@_LENGTHI; 

:1 149 

3 3 1494 ! The debuager doesn't handle dynamic string descriptors. Some output is 
3 1 1495 ! better than none, so we treat them as regular string descriptors, and 

3 ; 1698 truncate/pad as required. 

; : 1208 if «SOURCE CLASS EQL DSCSK_CLASS_D AND .SOURCECDSCSB_DTYPE] EQL DSCSK_DTYPE_T 
51 1300 SOURCECDSCSB_CLASS] = DSCSK_CLASS_S; 

3 : 130) — EQL DSC$K_CLASS_D ANS - TARGETCOSCSB_DTYPE] EQL DSCSK_DTYPE_T 
[1 1208 TARGETCDSCS$B_CLASS] = DSCSK_CLASS_S; 

Z 1308 

; ; 1206 If class field is zero, map in correct class/dtype. 

:1 1508 if .SOURCECDSC$B_CLASS) EQL 0 

3; 138 1509 THEN 

3 } 1319 SOURCECDSCSB_CLASS] = DBGSMAP_DTYPE_CLASS(.SOURCECDSC$B8_DTYPEJ, FALSE); 
; i 131 IF .TARGETCDSC$B_CLASS] EQL 0 

: } "¥] 1313 TARGETCOSCS$B_CLASS] = DBGSMAP_DTYPE_CLASS(.TARGETCDSCSB_DTYPEJ, FALSE); 
; 1388 1516 

3; 1389 1517 ' Case on the Fcode. if the target data is one of the non-standard 

3; 1390 1318 ! data types then type d and/or range value will be validated by 

3; 1391 151 ! calling DBGSPERFORM_TYPEID_CHECK. First set up the routine check 

3 133 3 9 : index according to Tcode. 

; 1394 15 § F CODE = .DST_VALUE_DESCCDBG$B_DHDR_FCODE]; 

; i 99 3 ; CASE .FCODE FROM RSTSK_TYPE_MINIMUM TO RSTSK_TYPE_MAXIMUM OF 

: 1397 1525 RSTS$K_TYPE_ENUM): 

3 ; Ha 13 $ TYPE ID_INDEX = ORTSK_TYPEID_ENUM_ENUM; 

: 1400 1528 CRST$K_TYPE_SET): 

: Hye 1 3 TYPE ID_INDEX = ORTSK_TYPEID_SET_SET; 

: 1208 1531 CRST$K_TYPE_SUBRNG): 

3 ree 3 § TYPE ID_INDEX = ORTSK_TYPEID_SUBRNG_SUBRNG; 

: 1406 15 CINRANGE, OUTRANGE): 

3 1407 1535 TYPEID_INDEX = 0; 

3; 1408 15 § 

3; 1409 15 TES; 

: 1410 2 3 

3 1411 1 

3 1412 1540 ! If routine check index is set up, call dbg$perform_typeid_check 

3 ot 136) to perform the typeid check. 
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IF _ .TYPEID_INDEX NEQ 0 
THEN 


— 3 3 
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BEGIN 
STATUS = DBGSPERFORM_TYPEID_CHECK(.TYPEID_ INDEX 
~SRC-VALUE_BESC, .OST_VALOE_DESC, 0); 


— «STATUS THEN SIGNAL(DBGS_OPNOTALLOW, 1, .DBGSGL_OPCODE_NAME); 


Now, typeid has checked, deposit is —- operation for both 
ppg and non-standard data types at this point. 

Fixup the class and ot yor fields to be vax standard format, so 
DBGSCVT_DX_DX can be called to perform the conversion. 


NCR_I i 0 T0 1 DO 


SUSUSISUSISION ££ EE 


i eh et Rk ted 


GI 
IF .1 E€QL 0 
HEN 
34 BEGIN 
5 DESC_VAL = .SRC_VALUE_DESC; 
DESC-PTR = .SOURCE; 
37 END 
SE 
BEGIN 
DESC_VAL = .DST_VALUE_DESC; 
DESC_PTR = : TARGET; 


IF CBE SE VAL LDBSES VALUE DT TCE EQL 0 AND 
-DESC_VALCDBG$B_VALUE_CLASSJ EQL 0) 


DESC_PTR = COVER_VMSDESC_SETUP(.DESC_VALCDBGSL_DHDR_TYPEID), 
-DESC_PTR); 
END; 

1A 
i 7 
i 4 
4 
SELECTONE .FCODE OF 


ET 
RSTSK TYPE_ENUM, RSTSK_TYPE_SUBRNG): 


djust the length of the source. 
his is used for, ie., DEP 
is 1 longword. 


So we won't get truncation message. 
enum=1, where enum 
in some cases, we'll get integer overflow message. 
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84 

i 
4 8 IF .SRC_VALUE_DESCCDBGSL_DHDR_TYPEID] EQL 0 
Q i - NBEGIN 
4 91 IF .SRC_VALUE_DESCCDBGSB_DHDR_FCODE] EQL RSTSK_TYPE_ATOMIC 
4 35 THEN 
4 9 EGIN 
4 94 SOURCE pscee CL Assi = . TARGET pscse.CLASs): 
467 95 SOURCECDSCSB_DTYPE] = . TARGET pace DTYPEJ; 
468 38 SOURCECDSCSW-LENGTH] = .TARGETCOSCSO_LENGTHI; 
rs 4 9 ND; 
470 38 
471 END; 
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: 1472 1600 

3 1of i 198) END; 

: 14675 1808 COTHERWISEI: 

: 1476 1604 ; 

3 147 1605 TES; 

: 1478 1606 

3 147 160 

3; 1480 1608 ! Do the conversion. Put everything back. 

; 1481 1609 i 

3 14 4 1610 SELECTONE .FCODE OF 

: 148 1611 T 

+ 1684 16l¢ RSTSK_TYPE_RFA): 

: 1485 161 CHSMOVET.DST_VALUE_DESCEDBGS$¥_VALUE LENGTH] 

3 i's] 1618 » SRC_VALUE_DESC DBGSL-VALUE ~POINTERS, -DST_VALUE_DESCCDBG$L_VALUE_POINTER]); 
: 1488 1616 CRSTSK_TYPE_SET): 

: 1489 161 BEGIN 

: 1490 1618 LOCAL 

: 1491 1619 INDEX, 

: 1438 1620 SETVALUE: REF BITVECTORC); 

+ 1494 16 ; IF_.SRC_VALUE_DESCCDBGSB_DHDR_FCUDE] EQL RSTSK_TYPE_SET 
> 1495 16 THEN 

: 1496 1624 4 BEGIN 

: 1497 1625 4 CHSMOVE (.DST_VALUE DESCCDBGSu VALUE LENGTH], 

: 1498 16 $ 4 ‘ ~SRC_VALOE_DESTCOBGSL_VALOE_POINTERJ, .DST_VALUE_DESCCDBG$L_VALUE_POINTER)); 
: 1500 1628 4 

: 1501 1629 3 ELSE 

; 1302 1630 4 BEGIN 

: 150 1631 4 INDEX = ..SRC_VALUE_DESCCDBGSL_VALUE_ POINTER); 

3 1504 163¢ 4 IF_. INDEX LSS~O THER SIGNAL (DBG$_BITRANGE); 

: 1505 1633 4 SETVALUE = .DST_VALUE_DESCCOBG$L VALUE POINTER]; 
: 1506 1634 5 IF .INDEX LEQ (7DST_VALUE_DESCCOBG$W_VALUE_LENGTH] * 8 - 1) 
: 1507 1635 4 THEN 

3 150 1636 4 SETVALUEC. INDEX] = 1 

3 15 1637 4 s 

: 1510 1638 4 SIGNAL (DBG$_B1TRANGE); 

> 1511 1639 3 ND; 

: 131g 1640 END; 

: 151 1641 

: 1514 1648 COTHERWISE): 

: 1515 164 DBGSCVT_DX_DX (.SOURCE, . TARGET, DUMMY, .CVT_ROUND_FLAG); 
: 1516 1644 TES; 

: 151 1645 

: 1518 1646 

: 1519 164 SOURCE DSCSB_CLASS) = ,SOURCE_CLASS; 

: 1520 1648 SOURLELDSC$B_DTYPE) = .SOURCE-DTYPE: 

: 1521 164 SOURCECDSCSW-LENGTH) = .SOURCE LENGTH; 

: 15 : 1650 TARGET DSCSB-CLASS = , TARGET CLASS; 

: 152 1651 TARGETCDSCSB-DTYPEJ = .TARGETDTYPE; 

; 1526 1036 

: 1525 165 

3 15 $ 1654 ! Do range check. 

: 15 1655 i 

: 1528 1656 IF .TYPEID_INDEX NEQ 0 
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-ASCII <24>\DB6 
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ASCII 
ASCII 
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DBGCVTDX 
voe-000 DEBUG. Dx.832;1 


! 
76 6€ 69 20 20 fh c. 53 i 7 <3 ci i if P.AAH: .ASCII <24>\DBGCVTDX: invalid class\ : 
76 6€ 69 20 20 ‘ ; re s 5 3 2 28 oe iS 182 P.AAL: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6— 69 20 20 ‘ > re s 5 é3 a 25 re: iS b10¢ P.AAJ: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 ‘ $ re s 5 ‘3 a rt: ae ug pice P.AAK: .ASCII <24>\DBGCVTDX: invalid class\ ; 
76 6€ 69 20 20 ‘ $ re s 5 :3 a 2g ae 4 % P.AAL: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 ; re 5% 55 :3 a 28 oe 18 8 Hf P.AAM: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6— 69 20 20 34 ; a3 z° 53 :3 a 8 ae i 09 i2 P.AAN: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 3 38 re z 56 ‘3 a rf a iS 4 sf P.AAO: .ASCII <24>\DBGCVTDX: invalid class\ ; 
76 6€ 69 20 20 ; 38 re z z ‘3 a 2s a i 8 és P.AAP: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 3 38 re 2? 2 :3 rH 2g ze i S 3 P.AAQ: .ASCII <24>\DBGCVTDX: invalid class\ ; 
76 6€ 69 20 20 oA 3 2 5 23 ‘3 2 rt: 2 i + M P.AAR: .ASCII <24>\DBGCVTDX: invalid class\ ; 
76 6€ 69 20 20 38 re z 2 <3 2 eg ce i + 3 P.AAS: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 3 38 re z? 23 33 rH os a i ae P.AAT: .ASCII <24>\DBGCVTDX: invalid class\ ; 
76 6€ 69 20 20 3A 58 44 54 56 ra 47 42 44 18 00 Ps P.AAU: .ASCII <24>\DBGCVTDX: invalid class\ : 
76 6€ 69 20 20 SA 53 et 5% 56 :3 7 3 ¢4 is Oost P.AAV: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 * 38 re re 2 29 a ag a if 00826 P.AAW: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 * 38 re z 26 29 a os 2 i Bose P.AAX: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 " 3 a : 53 29 2 2g rr i 00338 P.AAY: .ASCII <24>\DBGCVTDX: eens class\ 
76 6€ 69 20 20 3 38 re 5% 23 29 2 rf: rr i nH P.AAZ: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 3A 38 a3 z z 29 a rt: re; i RTA P.ABA: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 3 38 a3 2? 2 29 2 2s a i K P.ABB: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 4 38 re 5% 26 29 a 25 ae iS 8 3 P.ABC: .ASCII <24>\DBGCVTDX: invalid class\ ; 
76 6€ 69 20 20 + 38 re) 2 3 29 5 re i 8 8 P.ABD: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 4 ; a z? 3 25 a if 8 P.ABE: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 ‘ ; re 5% :3 2s ze iS O38 P.ABF: .ASCII <24>\DBGCVTOX: invalid class\ 
76 6€ 69 20 20 ; re se : 2s 2 18 oe P.ABG: .ASCII <24>\DBGCVTDX: sama class\ 
76 6€ 69 20 20 38 re 2 29 rt: ae 4S Och P.ABH: .ASCII <24>\DBGCVTDX: invalid class\ : 
76 6€ 69 20 20 3A 8 44 5% 33 2s 2? if bees P.ABI: .ASCII <24>\DBGCVIDX: invalid class\ 


acu 


76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 


; 
; 
; 
; 
5 
; 
; 
; 
; 
; 
76 6€ 69 20 20 3A $ 
; 
; 
; 
; 
; 
5 
; 
; 
; 
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4 23:57:30 AX-11 Bliss-32 V4.0-742 Pp | 
Bt faitosey «— FoRadG SheSSecevyon esos aoe 35 


5C P.ABJ: .ASCII <24>\DBGCVTDX: invalid class\ 
8 P.ABK: .ASCII <24>\DBGCVTDX: invalid class\ 
fe P.ABL: .ASCII <24>\DBGCVTDX: invaiid class\ 
P.ABM: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABN: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABO: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABP: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABQ: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABR: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABS: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABT: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABU: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABV: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABW: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABX: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABY: .ASCII <24>\DBGCVTDX: invalid class\ 
P.ABZ: .ASCII <24>\DBGCVTDX: invalid class\ 
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76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 
76 6€ 69 20 20 3A 


PAE AEAL ASAE AEA AEAEAEAEA EASA ESO LSOLSOS 
NE NE NE NE NE NE NE NE NE NE NE NE NE NE NE NE NE NES 
S 

orn 


DOONAVA SAN @ @OMMMNO OOD S ODONIOOUNLS WN OO "MIOOW> 


; 
; 
76 6€ 69 20 20 3A ; 44 54 
; 
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yay oer iat wat? oat la) mia) at at lk a te a ee eS Sk Se 
WOWOWOWOWOWOWISWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOWOW 
o 
w.) 
PORE AL OLA LALA LALA LALA LAL ALA EAE AEA EAE OA EAE AEA EAE A LALA LOLOL O 
HPOHLOLOHLO LO HLO LO LO LOLOL O LOLOL OHLO LO LOLOLOLOLOLOLOLOLOLOLOLO 
MO 2 2 HH HR HHO HOO SO BRR HOH HOH HO 
co—00 — 00 — 00 — 00 — 00 — 00 — G9 — C9 —+ 09 —+ CD —+ 09 — 09 — CD — C9 — GD — GD — CD — CD —» GO —» CD —» CO —» CO —» 09 —» 00 — G9 — G9 — OD — 0D 


0 
0 
: 
76 6— 69 20 20 + ; re z? 26 1 0 P.ACA: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6— 69 20 20 3 38 re 2? 56 rH ¢ 8 P.ACB: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 5 ; re 2 56 a rt} 0 P.ACC: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 4 re : 5 a 1 0 P.ACD: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6— 69 20 20 : re ? 26 rH 2 P.ACE: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6— 69 20 20 ; re : 5 a P.ACF: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 ; ; re ? 56 ry 3 ? P.ACG: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 ; 3 re : 5 a 785 P.ACH: .ASCII <24>\DBGCVTDX: invalid class\ 
; ei ae 56 a 1 8 P.ACI: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 re ? 5 a 1 bere P.ACJ: .ASCII <24>\DBGCVTDX: invalid class\ 
76 6€ 69 20 20 3A 44 54 3 47 4 


OFoe P.ACK: .ASCII <24>\DBGCVTDX: invalid class\ 
718 P.ACL: .ASCII <24>\DBGCVTDX: invalid class\ 


76 6€ 69 20 20 3A 58 44 54 56 
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ide 


s\ ‘ 
invalid 2 ; 
K: las ; 
! adam invalid cae 
: ASCII 4>\DBGCVT : invalid ¢ s\ 
4! P.ACM Cll <2 CVTDX: id clas : 
6C $1 : SAS 4>\DB6 :  inval ss\ ‘ 
3 $3 of 6 2) een ASCII <2 \DBGCVTDX: alid cla ; 
3 2 47 6¢ 18 75 ACO: . <24> DX: inv Lass\ : 
4 4 6 44 5 P. SCII GCvT lid c¢ ‘ 
61 ef Ss 2 66 4 6¢ ° 16 P: .A 24>\DB8 : inva ss\ ; 
4 8 bs sf $3 a 78 007 Q: 4A 24>\D8 : inva ss\ ; 
20 3A at te 56 3 03 of 798 P.AC cll < CVTDX: lid cla 
9 20 A ; 61 i § 20 64 4g 6C 1 7 : As 4>\DBG 5 teen $\ : 
€ 6 20 : 4 47 6 8 7A4 ACR: <2 TDX: clas : 
7% 6 20 3 a1 ae g ¢ 64 ae iS 7AE P. ASCII BGCV alid ; 
9 a8 3 2 3 a ee: bis 24>\D : inv ss\ : 
E 6 20 3 h a 18 Tee oe act 1 < TDX: cla 
7% 6 20 3 a3 ae o ¢ 64 et 760 P. ASC! BGCV alid ; 
9 A > 61 i § 3 3 4g 6C 0 ' —— 24>\D : te ~ 
6— 6 20 ; 44 4 6 18 7E P.ACU I< TDX: id cla : 
76 20 3 t  ¢ 64 ae ot 79 ASCI BGCV ali 
9 a 3; 4 3 20 64 a ee 0 eS 24>\D ~~ ast 
E 6 20 H a, ¢ 18 a838 8. acy r 4 TDX: cla : 
7% 6 20 3 a1 ae & ft 64 ae if 12 P. ASCI BGCV alid ; 
9 A e 8 8 eo o a8 bc tt ts 24>\D : inv ss\ 
E 6 20 ; 4 6 g 4 6 18 0 ACW 4 TDX: id cla 3 
76 6 20 3 4 C L 64 44 61 82B P. ASCI BGCV alid . 
Q A $ 61 4 5 29 7 2g 6C 0 A $ 24>\D > inv ss\ : 
Ee 6 20 4 6 & 6 18 08 ACX < TDX: cla 3 
7% 6 20 3 a1 ac 35 és a if B44 P. ASCII BGCV alid 
9 A § 61 si: 2 7 62 6C 00 3 : ° 4>\D : inv s\ ° 
— 6 20 3 ; 4 6 ° 4 69 18 0085 ACY <2 TDX: clas : 
7% 6 20 73 4 6C 4 64 44 61 85D P. ASCII BGCV alid : 
9 4 8 Gs 2 a a Te: 0 B 4>\D : inv s\ é 
— 6 20 4 5 a Hh Bs Fa ACZ <2 1Dx: clas ; 
76 6 20 3 ; 4 6C g 4 64 4b 61 876 P. ASCII BGCV alid : 
9 A 61 4 $ 2 7 4 6C 00 5 ite 4>\D : inv s\ ‘ 
Ee 6 20 ; 4 5 6 ° 4 6 18 088 ADA <2 TDX: id clas ; 
7% 6 20 3 58 4 C 4 64 2 46 61 0 B8F P. ASCII BGCV alid , 
69 3A 35 e $6 3g 20 47 45 6¢ 18 O89 dB: . <242\D Xz inv Lass\ : 
76 6 oa S 41 ac 8% 3 3 8 4 . Sar os ASCII BGCVTD alid ¢ : 
76 6€ 20 20 73 5B 44 6c 6 43 64 6 64 61 tte P.A ASCII BGCVTDX: alidc : 
9 8 38 at 2 ae 3 a i OBs0 to 4>\D : inv s\ : 
E— 6 20 7 4 5 6 & 6 18 08D: ADD <2 TDX: clas : 
76 6 20 73 58 4 6C 4 64 4G 61 BDA P. ASCII BGCV alid ; 
69 38 8 ze 28 33 a Se: barn i 24>\D : inv ss\ ; 
E 20 7 4 3 4 6 18 O8E ADE . @ TDOX: id cla : 
76 6 20 73 5 4 6C § 4 64 2 44 61 8F3 P ASCI BGCV alid ; 
69 ma : 61 54 8 2 7 4 6C 8 00 3 -_ 24>\D : inv ss\ : 
oF 20 44 4 69 1 090 P.AD j-«< TDX: d cla : 
76 me 5 t 8 ft $ $3 of $1 90902 ASCI BGCV ali 
69 A 38 61 ef g 2 7 4 6C 0 3 » 24>\D : inv ss\ ‘ 
E 20 4 4 6 18 0918 .ADG e TDX: d cla ; 
76 6 20 , &% § & 8 ¢ 3 2 of a 9 ASCI DBGCV ali : 
$9 3A 73 61 54 : 2 47 a6 6¢ 18 94 ADH: . <24>\ X: inv lass\ : 
76 6€ 20 20 3A a1 ae sf a7 a3 eG $8 0093 P. ASCII BGCVTD olid ¢ ; 
69 $8 bi 8 $ eo $3 8 6 ee 24>\D : inv ss\ 
E 20 4 4 6 i$ Bee P.AD I< TDX: id cla ; 
76 6 20 3 4 C g & 64 44 6 95 ASCI DBGCV ali : 
69 A 38 61 4 $ 2 7 4 6C 8 Jt 24>\ : inv ass\ : 
76 20 f @ ¢ 64 ae out 970 ASCI DBGC al 
69 A 38 61 4 g ¢ 47 4 6c i 3 7F Ks. <24>\ >: inv lass\ 
6E 20 44 2 ¢ oS of 389 P.AD 1 VTDX: idc 
76 20 C 64 & 61 989 ASC BGC invali 
9 A 61 4 C 0 ky « >\D : inv 
ae 20 20 3A 61 6c is é s 81 te pre coma 
nae TH eee 
—S 20 20 $A 3 $4 ; é3 ri ae 68 ef 18 904 P.ADN: 
6 6& 69 2 gi ? é3 ¢ a of oe fa 09€ 
r 9 20 61 yo ¢ ¢ 61 
% & 6 7a eS er; 33 es 68 8 
6E 69 2 0 3A 5 e 3 30 6 
76 9 20 20 3 é1 ae 
6— 6 20 5 ; 
76 69 20 
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1aageen13be F3ikoiee «HORUS BAL Sbacevybi asses oe | 
7% 6€ 69 20 20 3a 64 54 56 43 47 462 446 1 SED P.ADO: .ASCII <24>\DBGCVTDX: i i \ : 
8 8 St ke é8 20 64 a8 ee e 9F — ro : 
7% 6€ 69 20 20 A 3 a : $ of é a4 $ A P.ADP: .ASCII <24>\DBGCVTDX: invalid class\ : 
7% 6€ 69 20 20 4 3 “6 ‘ 5 7 ‘ a4 jf alt P.ADQ: .ASCII <24>\DBGCVTDX: invalid class\ : 
76 6€ 69 20 20 3A 3 a : Se ; 7 4g rf: 18 ag P.ADR: .ASCII <24>\DBGCVTDX: invalid class\ F 
76 6€ 69 20 20 3A 3 $6 : 5 ; 7 4g bf: "8 A51 P.ADS: .ASCII <24>\DBGCVTDX: invalid class\ : 
7% 6€ 69 20 20 A 3 “4 ‘ 5 4 47 4 44 is A A P.ADT: .ASCII <24>\DBGCVTDX: invalid class\ : 
7 6€ 69 20 20 A 3 4 ‘ ‘: , 7 4 ci is OARS P.ADU: .ASCII <24>\DBGCVTDX: invalid class\ : 
76 6€ 69 20 20 3A 44 54 63 467 62 66 1 ASIC P.ADV: .A <24>\ TDX: i : 
3 $ a3 ae 23 33 Gk 2g re: iS ee DV SCII <24>\DBGCVTDX: invalid class\ 
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18-se $1984 23:57:3 AX-11 Bliss-32 V4.0-742 Page 35 
12786871982 $3: foies DEBUG. SRCID GCVTDX.832;1 . (6) | 
-EXTRN DBGSCVT_SCALE_OU_UP BY_10_R1 
»EXTRN atthe SCALE- OU" DOQN_BY_T0_R1 
-EXTRN LIBSSCVT_SCALE_OO_UP_BY_T0_R1 
-EXTRN LIBSSCVT-SCALE-OU BOON BY T0_R1 
-EXTRN DBGSCVT_SCALE_OuU_OP BY-2_R1 
-EXTRN DBGSCVT-SCALE-OU_DOQN_BY-2_R1 
-EXTRN LIBSMATCH_COND, CIBSSTG_TO_RET 
EXTRN LIBSSCOPY-R_DX6 
~EXTRN LIBSSCOPY_DRDX6 
-EXTRN LIBSSTOP, MTHSCVT_D G 
«EXTRN OTS$CVT_t TI. OTSSCVT_T_D 
«EXTRN Or sacyT G, reaeul TA 
-EXTRN SYSSASCTIA, SYSSBINTIM 
-EXTRN LIBSAB_CVTfP_U, LIBSAB_CVT_O_U 
-EXTRN LIBSAB_CVTTP_O0, LIBSAB_CVT-U-O 
EXTRN LIBSAB_CVTPT_U, LIBSAB_CVTPT_O 
-EXTRN LIBSAB_CVTPT IBSAB_CVTTP_Z 
XTRN DBGS$GL-OPCODE_NAME 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 .ENTRY DBGSCOVER_DX_DX, Save R2,R3,R4,R5,R6,R7,RB,-; 1429 
R9,R10,R1T : 
5E 24 ¢2 0000 SUBL2 #36, SP : 
5 04 AC DO 0000 MOVL skC VALUE_DESC, R8 ; 1476) 
56 14 A& 9E 00009 MOVAB 20(R8), SOURCE : 
57 08 AC DO 9000 MOVL ST VALUE DESC, R7 : 1477) 
59 14 =A 9 011 MOVAB 20(R7), TARGET : 
00000000° EF 18 A7 00 00015 MOVL 4(R7), SAVE RESULT > 1482. 
B 03 Ab 3 0010 MOVAB 3 (SOURCE), R ; 1487 | 
10 AE 68 9 900 1 MOVB (R11), SOURCE CLASS ; 
5A 03 Ad 9 0025 MOVAB 3(TARGET), R + 1488 
Oc AE 6A 9 999 9 MOVB (R10), TARGET CLASS : 
08 AE 02 A6 90 0002D MOVB (SOURCE), SOORCE_DTYPE > 1489 
04 AE 02 a9 90 000 3 MOVB (TARGET). TARGET -DTYPE > 1490 
6E 66 BO 000 MOVW (SOURCE), SOURCE_CENGTH : 1491 
02 10 AE 91 OOO3A CMPB  SOURCE_CLASS, # : 1498 
0 M2 00 BNEQ 1$ : 
OE 02 Ag 9 9 4 CMPB ¢(SOURCE), #14 : 
0 12 044 BNEQ 4 : 
19 0046 MOVB = #1, (R11) : 1500 
02 OC AE 91 00049 18: CMPB = TARGET_CLASS, #2 : 1501 
0 iF 9 4D BNEQ $ : 
OE 02 ag ? GF CAPR (TARGET) #14 
6A 1 3 MOVB 3 3s #1, (R10) + 1503 
6B 9 28: TSTB =. (R11) : 1508 
10 1 A BNEQ = 3$ ; 
7E ps C CLRL =(SP) > 1510. 
re 02 A6 9A MOV ZBL 2 (SOURCE) . -(SP) : 
000000006 00 Q f CALLS 2, DBG MAP _DTYPE_CLASS : 
A 9 C 3$ TSTB. —s._- (R10) + 1512 | 
» ¥ BNEQ 4$ 3 
7 p CLRL = (SP) > 1514 
7E 02 Aad 9a 0007 MOVZBL 2(TARGET), -(SP) ; 


5 
DBscyTDx a 25:57: 


30 Ax-11 Ot igsete vV4.0-7 
44 DEBUG. SRCJDBGCVTDX. BS3e 1 
000000006 00 F 2% CALLS #2, BG P_DTYPE_CLASS 
A n $0 9007 MOVE 6 (R i). 
15 ; 3, cf atti 9th?) Of 21 
0031 0 c C 0 C 0 WORD b§0 Wy 
0037 C ¢ ¢ 6$-5$.- 
002¢ O2C ¢ 0 D 9 $s- $,° 
002C C C ¢ A $-5$.- 
002¢ O2c 02¢ 0 ¢ OOA 6$-5$.- 
02¢ C 008 6$-5$.- 
$-5$;- 
$-5$.- 
$-5$;- 
6$-5$,- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$.- 
6$-5$ 
16 AE D4 000B4 68: CLRL =‘ TYPEID_INDEX 
10 11 00087 BRB 10$ 
146 AE 01 00 90089 7$: MOVL #1, TYPEID_INDEX 
OA 11 00080 BRB 10$ 
16 AE 02 00 OOOBF 8$ MOVL #2 TYPEID_INDEX 
04 11 O0¢3 BRB 10$ 
16 AE 04 DO 000C5 98 MOVL #4, TYPEID_INDEX 
18 AE 04 000C9 108 CLRL —-.24¢ SP) 
4 =A D3 000¢C TSTL | TYPEID_INDEX 
30 13 OOOCF BEQL 118 
18 AE 06 00001 INCL  24(SP) 
7E 04 00004 CLRL = = (SP) 
57 0D 000D PUSHL 7 
58 0D 000D PUSHL R8 
20 AE DD 000D PUSHL TYPEID_! 
000000006 00 4 F 9 DD CALLS 4&4, DBESPERF ORR, TYPE ID_CHECK 
1c OA 0 »D E4 MOVL RO. STATUS 
1¢ AE E oes BLBS STATUS, 11$ 
000000006 DD OO0E PUSHL BBGSEL  OPCODE_NAME 
1 0D OF PUSHL 
000289CA 8F DD O00F PUSHL #166346 
000000006 00 ; FB OOOFA CALLS #3, LIBSSIGNAL 
D4 00101 11$: CLRL 
; 12 00103 12$: BNE 38 
52 DO 001 MOVL RB, DESC_VAL 
5 6 DO 001 MOVL SOURCE, BESC_PTR 
6 11 001 BRB 14 
52 DO 0010D 13$:  MOVL 7, DESC_VAL 
9 p 1 MOVL ‘TARGET BESC _PTR 
16 A2 113 14$: =‘ TSTB g(0 DESC_V 
OF 12 00116 BNEQ $ 


5 
GCVTDX 14-52 =1984 23:57:30 AX-11 Bliss-32 V4.0-742 
yOL-000 1228 08=188e $3:fo ies DEBUG. SRC IDBGCVTDK.B32:1 
17 A2 95 00118 TSTB (DESC_VAL) 
QA 33 118 BNEQ at ~ 
DD 00110 PUSHL pESC PTR 
08 A2 DD OO11F PUSHL 8 (DESC_VAL) 
0000v cf Fe 1 é CALLS He. COVER VMSDESC_SETUP 
D8 z F3 00127 15$:  AOBLEQ #1, I, 128 
04 4 Di 00128 CMPL FCODE. #4 
95 13 001 BEQL ©=s-«16$ 
09 4 pj 1 CMPL FCODE, "9 
1 1 BNEO 17 
08 AB 05 00135 168: TSTL 8(RB) 
11 12 001 BNEQ =«*'17$ 
02 06 AS 91 OO13A CMPB 3 s«@ (RB), #2 
0B 12 001 BNEQ 17$ 
6B 6A 90 0014 MOVB (R10), (R11) 
02 A6 02 Ad 90 0014 MOVB  2(TARGET), 2(SOURCE) 
65 $9 BO 0014 MOVW (TARGET), (SOURCE) 
14 4 01 0148 17$: CMPL FCODE, #d0 
08 13 0014 BEQL =«*18$ 
08 4 D1 0015 CMPL ECODE, #8 
49 12 0015 BNEQ = 22$ 
08 06 As 91 0133 CMPB  3=s« (RB), #8 
0 if 0159 BNEQ 19$ 
18 87 18 «B88 16 A? é 00158 18$:  MOVC3 g0(R7), @24(R8), @24(R7) 
49 11 0016 BRB s 
52 18 B88 09 00164 19$: MOVL 24(RB) INDEX 
OD 18 00168 BGEG 20$ 
00028248 8F DD 0016 PUSHL #164424 
000000006 00 1 FB 001 : CALLS #1 LIBS$1GNAL 
1 18 A? 20 0177 208:  MOVL air ), SETVALUE 
0 14 A? 3C 00178 MOVZWL 20(R7). RO 
50 08 C4 0017F MULL2 #8, RO 
07 00182 DECL =R 
50 52 (D1 001 CMPL INDEX, RO 
06 14 00187 BGTR 1 
20 61 E2 00189 BBSS INDEX, (SETVALUE), 23$ 
1€ 11 0180 BRB 3$ 
00028248 8F DD 18 21$:  PUSHL #164424 
000000006 00 ! Fe 0195 CALLS a, LIBSSIGNAL 
c ac pp Stee 22$:  PUSHL. CVT_ROUND_FLAG 
4 AE 9F OOTAI PUSHAB DUMAY 
0240 8F BB OO1A4 PUSHR #°M<R6,R9> 
0000v CF 4 FB OO1A8 CALLS #4, DBGSCVT_DX_Dx 
68 10 AE 1AD 238: MOVB  SOURCE_CLASS, R11) 
02 Ab 08 AE 181 MOVB § SOURCE“DTYPE. 2(SOURCE) 
66 6E 186 MOVW § SOURCE“LENGTH, (SOURCE) 
ba C AE 1B MOVB = TARGET~CLASS, (R10) 
02 a9 4 AE 1 MOVB TARGET“DTYPE. 2( TARGET) 
2D tg AE E9 001C BLBC  24(SP)T 24$ 
3 DD 001C PUSHL 7 
3 D4 O01C CLRL. = = (SP) 
58 DD OOICA PUSHL 
20 AE DD O01CC PUSHL TYPEID JNDEX 
000000006 00 FB OOICE CALLS #4, DBGSPERFORM_TYPEID_CHECK 
1¢ AE 0 00 00106 MOVL RO 
1 1¢ AE EB OO1DA BLBS STATUS, 24$ 


POPPA O- 
RAS AAAS ee 
20002 —S0m0N~N 
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> 1541 1 1 
:1 4g 1669 1! 
3: 154 16 » 1! 
> 1544 1671 1: 
> 15465 167¢ ii 
> 1546 16738 1: 
t 154 1674 1: 
2 1548 1675 1: 
> 1549 1676 ii 
: 1 30 1677 1: 
: 1551 1678 ii 
: 1 2g 1679 1: 
:1 1680 1: 
> 1554 1681 1 
Be 1d 
3; 15587 1684 

: 1558 1685 

: 1559 16 

: 1560 16 

: 1561 1688 

; 1368 1689 

> 156 1690 

> 1564 1691 
1S 

+ 1308 1898 

: 1569 1696 

: 1570 1697 
Bp igs 

; 1898 1700 

: 157% 1701 3 

: 1233 1708 

; 1307 1704 

: 1578 1705 
or 

2 ee 

: 1388 1719 
qe ine 

: 1387 1714 

3 15 1715 

2 

: 1591 1718 

71 3% 1719 & 

; 159 17 ? 4 

> 1594 1721 & 

; 1395 17 ; 4 
31 38 17 & 

: 159 1726 4 
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ROUTINE COVER_VMSDESC_SETUP(TYPEID, VMSDESC) = 


FUNCTION 
This routine is a hack routine colleg depending on FCODE in the 
TYPEID. The purpose of this routine is to plunge in the class code 
and dtype so that the DBGSCVT_DX_DX can be called. 


INPUTS 
TYPEID = Typeid of the data object. 


VMSDESC = Vax standard Descriptor. 
OUTPUTS 
VMSDESC is returned. 
BEGIN 
MAP 


TYPEID: REF RSTSENTRY, 
VMSDESC: REF BLOCKC BYTE); 


VMSDESCCDSC$B_CLASS] = DSCS$K GLASS.S: 
SELECTONE .TYPEIDCRSTS$B_FCODE) OF 


ths tsx [ee Ds 
woes”: is - VMSDESCCDOSCSW_LENGTH] OF 


1): 
VMSDESCCDSCSB_DTYPE] = DSCSK_DTYPE_BU; 


VMSDESCCDSCSB_DTYPE3 = DSCSK_DTYPE_wu; 
COTHERWISE): 
, VMSDESCLDSC$B_DTYPE] = DSC$K_DTYPE_LU; 


END; 
CRSTSK_TYPE_SUBRNG): 
BEGIN 
LOCAL 
DUMMY1, DUMMY2, DUMMY3, DTYPE; 


WHILE .TYPEIDCRSTSB_FCODE) EQL RSTSK_TYPE SUBRNG DO 
DBGSSTA_TYP_SUBRNG(.TYPEID, TYPETD, DOMMY1, DUMMY2, DUMMY3); 


SELECTONE - TYPEIDCRSTSB_FCODE) OF 


RSTSK_TYPE_ENUM): 
VMSDESC™= COVER_VMSDESC_SETUP(.TYPEID, .VMSDESC); 


CRSTSK TYPE ATOMIC): 


DEGSSTA TYP ATOMIC(.TYPEID. DTYPE, DUMMY3) ; 
IF .DTYPE EGL DSTSK _BOOL THEN DTYPE = DSC$K_DTYPE_TF; 
VMSDESCCDSCSB_DTYPE] = .DTYPE; 


TOX.832;1 
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1725 4 ' In here we have a 4B w erepien. for the s i3¢ 0 

17 8 4 ' the parant and the s ze the a yt sd {terent. 
17 4 ! For example, eubrange’» parant can be longword integer 
17 3 4 ! and subrange can be Byte. In order for the type 

17 4 ! converter to take the right value, we adjust thee dtype 
Vf ? ? ; by the length. 

Hy § ? if -DTYPE NEQ DSCSK_DTYPE_T AND .DTYPE NEQ DSCSK_DTYPE_TF) 
17 BEGIN 

Vy 5 SELECTONE -VASDESCCDSCSW_LENGTH] OF 

17 }: 

4 8 _VMSDESCCOSCSB _DTYPE] = DSCSK_DTYPE_B; 

1740 “WHSDES CoscsB _DTYPE] = DSCSK_DTYPE_w; 

1741 COTHERWISE): 

eg SRSDESCEDSCSB _DTYPE] = DSCSK_DTYPE_L; 

174 TES; 

1744 4 END; 

1745 END; 

Hb 

174 TES; 

1 eo 

1750 : 

1751 CRSTSK_TYPE_SET, RSTSK_TYPE_TPTR): 

1738 VMSDESCCDSC$B_DTYPE) = BSC$K_DTYPE_L; 

1387 CRSTSK_TYPE_RFA 

123? VMSDESETDSCSA_ CLASS) = 0; 

1789 COTHERWISE): 

1728 oe $DBG_ERROR( "DBGCVTDX\COVER_VMSDESC_SETUP"); 

1760 , 

1761 RETURN .VMSDESC; 

1762 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4F $3 2¢ 28 && 23 26 43 47 42 44 1¢ pone? P.ADW: .ASCII <28>\DBGCVTDX\<92>\COVER_VMSDESC_SETUP\ 
54 4 F 43 53 45 44 53 4D 56 SF 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


000C 00000 COVER_VMSDESC =SETUP: 
ue ¥ ave R2,R3 


10 ¢ SUBL : 6, $ 
sf “HERR ge rae 
3 % 45 20 Coot ApbL2 rb 
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GCVTDX 1Sese -1984 23:57:30 AX-11 Bliss-32 V4.0-742 
vitae tt 127808= 1382 93:3 ies DEBUG. SRC IDBGCVTDX. 83251 
0 9A 00014 MOVZBL (RO), RO 
© FRR gh gs 
01 : iC CMPW 38S s«<R2), #1 
: 1F BNEQ 
02 A2 9 MOVB #2, 2(R2) 
11 BRB 6 
02 8] 1$ CMPW 3s (R2), #2 
: A BNEQ 2$ 
02 A2 0 90 0 nove #3, 2(R2) 
02 A2 04 90 09 2$ MOVB #4, 2(R2) 
BR $ 
09 50 91 0 3$ CMPBSséRO, #9 
0 13 BEQL 4$ 
0085 31 0003p BRW 10$ 
50 04 AC b0 0040 4$: MOVL  TYPEID, RO 
09 18 #AO 91 0044 CMPB 4(RO), #9 
17 12 00048 BNEQ $ 
08 AE 9F 000A PUSHAB DUMMY3 
04 AE OF 90040 PUSHAB DUMMY2 
OC AE 9F 00 30 PUSHAB D 
04 AC 9F 0005 PUSHAB TYPEID 
50 OD 90056 PUSHL 
000000006 00 05 FB 0005 CALLS #5, DBGS$STA_TYP_SUBRNG 
DF 11 0005F BRB 4$ 
53 04 aC D0 90061 5$: MOVL TYPEID, R3 
50 18 AS 9A 00065 MOVZBL 24(R3). RO 
04 50 91 00069 CMPB RO, 4 
12 0006C BNEQ 7$ 
DD 0006E PUSHL R 
DD 00070 PUSHL R 
BA AF : FB 0072 CALLS #2, COVER _VMSDESC_SETUP 
08 Ac DO 00076 MOVL RO, VMSDESC 
8 11 0007A $$: BRB 148 
02 30 91 oo7¢ $: CMPBséRO, #2 
12 0007F BNEQ 14$ 
08 AE 9F 00081 PUSHAB DUMMY3 
10 AE 9F 0084 PUSHAB DTYPE 
53 DD 00087 PUSHL RS 
000000006 90 03 FB 00089 CALLS #3, DBGSSTA_TYP_ATOMIC 
0000009E 8F 0c AE D1 9099 CPL TYPE. #158 
oc A 8 06 A MOVL #40, DTYPE 
A C AE 8$: MOVE ODTYPE, 2(R2) 
OE C AE D1 OOOA CMPL DTYPE. #14 
48 13 000A BEQL 14$ 
28 Oc AE 01 Ag CMPL DTYPE, #40 
45 13 OOOAD BEQL 148 
01 62 81 AF CMPW 3S s«(R2), #1 
6 2 2 BNEQ 9$ 
02 A2 6 9 B4 MOVB #6, 2(R2) 
A 11 00088 BRB 14 
02 6 8] BA 9$: C (R2), #2 
@ 45 $3807 BNE ° cna 
+f 11 000C3 BRB 14§ 
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18-52 -1984 23:57:30 AX-11 Bliss-32 V4.0-742 
12-808=188e $3itoste DEBUG. SRC IDBGCVTDX.B325 1 
06 9 C5 10$:  CMPB RO, #6 
g 4 & BEQL moe 
08 0 ? CA CMPB SS séRO, #8 
é CD BNEQ 128 
02 A2 CF 11$ MOVB #8, 2¢R2) 
if 11 D BRB 14$ 
14 30 91 00005 128: CMPB R9 #20 
12 000D BNEQ =: 138 
03 Ag 94 OOODA CLRB $(R2) 
15 11 00000 BRB 4$ 
00000000" EF 9F OOD 13$ PUSHAB P.ADW 
1 OD ES PUSHL #i 
00028362 8F DD O00E PUSHL #164706 
000000006 00 3 FB OOOED CALLS #3, LIBSSIGNAL 
50 08 AC DO OO0F4 148 MOVL VMSDESC, RO 
04 000F8 RET 


; Routine Size: 249 bytes, Routine Base: DBGSCODE + 01F7 
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14-Sep-1984 116:44 DEBUG. SRC JDBGCVTDX.B832;1 


GLOBAL ROUTINE DBGSCVT_DX_DX (SOURCE, DESTINATION, OUTLEN): NOVALUE = 


This is the general data 7" conversion facility. 
Given two parameters, one the source descriptor, 
second the destination descriptor this routine 

will convert the source to destination. 
The perartted set of class, data type and combination 
of the two is a subset of the ones allowed in the 
calling standard. 


The following is a general description of DBGSCVT_DX_DXx. 


This module is divided into two routines on the bases of functional 
modularity. The front-end (FIND_CVT_PATH), and back-end (DBGSCVT_DX_DXx). 
The front-end converts the source into an intermediate data type, an 
frees the back-end of any error checking of invalid classes and/or 

data types (or combination of the two), and of decisions that require 
——— of which class or data type is being converted. The only 
information that the back-end knows about is what the conversion path 
is, and where the intermediate data is. The back-end then scales the 
intermediate data if necessary and converts it to the destination 

data type. Note that even though a scale may not be necessary, the 
intermediate data is still converted to a second intermediate data type 
just to be consistent. 


1. nee entry te DBGSCVT_DX_DX, FIND_CVT_PATH routine is called. 


<o 
FS 
a 
Ss 
— 
Oo 
Pad 


ao 


WW 
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WN | OOONAULS WN“ OVONOULSWN—O0@~ 


OO OO 0090009 09 00 09 09 09 09 09 SI NIN NII NNN NIA AAA AAO 
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ND_CVT_PATH has 4 functions, they are: 
664 a. Find any errors concerning the class and data type of 
665 source and destination descriptor. These errors can be 
666 invalid class, invalid data type, or invalid combination 
667 of a class and data ty e. It can also tell which descriptors 
668 are supported by the VAX-11 calling standard and which are 
669 32 supported by this routine. 
671 97 b. Figure out what the conversion peek is, i.e. class,dtype --> class.dtype. 
ore 98 These paths are given names such as K_SMLINT_DEC, which reads 
ot? +4 “from small integer to decimal’ (categories are defined Later). 
675 01 c. Convert the source data to an intermediate data. The strategy 
676 4 used to select the soprege tote intermediate data is explained later. 
ore 7 Precision should not be lost in converting to the intermediate type. 
679 05 d. Put whatever information needed about the source and destination 
680 06 descriptor in two structures passed by DBGSCVT_DX_Dx. . 
681 0 These two structures SRC_INFO, and DST_INFO, contain the kind 
rey 08 of information that can only be visiblé when the class, and 
68 09 data type of the source and destination descriptors are being 
684 10 manipulated. These two structures can be expanded to contain 
685 Vy more information as new class, and data types may require it. 
687 18 | 
688 14 2. The a py is an overview of the design of FIND_CVT_PATH: 
689 15 The problem to be solved is to recognize ‘‘valid’’ déscriptors. 
690 16 A descriptor is valid if the CLASS and DATA TYPE fields of the 
691 1 Gescriptor satisfy certain conditions. 
636 18 With this problem in mind we shall use some formal language theory 
69 19 and applications to solve it. 
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Let us take a hypothetical problem that is very close but smaller in 
magnitude of the original problem and solve it. 
sucpese hat the se gf classes that we are interested in are 
CLASS cl, cé. ¢5 }, and the set of data types are 
DTYPE = { di, d ‘ >. Then suppose that_only a certain § 
of CLASS and DTYPE are valid, and they are c1d3, ¢ 1, ¢3d2, § 
Hence language L(G) is consisted of sentences { cid3, céd1, c3d 
First we need to come up with a grammar for the Language L(G). 
Grammar for L(G) : 
--> que | <$2>d1 | <$3>d2 | <S3>d4 

C 


se 
ao 
o 
= 


FAVLSSRVES 


arbinet tone 
$344 }. 


GES 


ooo 


4 
A close look shows that this is a Chomsky type 3 regular grammar, 
eocauee product vent are all 
NON-TERMINAL ==> terminal 


or 
NON_TERMINAL ==> <NON-TERMINAL>termi..al 

This type of grammar has the nice feature that its sentential forms 
can be ‘‘accepted’’ by a finite state machi..c. 
The sentential forms of this grammar can also be accepted by a 
deterministic finite automaton (DFA) because each right hand side 
has a unique left hand side. 
A DFA can be written to recognize sentences of this grammar and to 
reject sentences that are not in the Languege. 
The original problem is very similar to this avpether teat one, the 
only difference is that the set of CLASSES and DTYPES is larger. 
FIND _CVT_PATH is just a DFA that accepts sentences of henguese L(V) 
when L(V) is pairs of VAX-11 DSCSK_CLASS_x DSCSK_DTYPE Y: The 
grammar for L(V) is very similar tO the grammar for L(G) above. 


OME UN “ODDO USWN—O0®@ 


3. In order to achieve the conflicting goals: fast, not large in size, 
expandable, no loss of precision as a result of intermediate values. 
there is a need for a _ compromise. The strategy for secogert sine 
the data types is based on three goals: precision should not be lost 
as a result of converting to intermediate data types, data types of 
the same category should share similar internal representations so 
they can be converted to and from each other pat Ps & and data types 
that have to be converted through software should be seperated rom 
those that have associated machine instructions. The third goal 
provides easy and fast conversions for those data types with 
associated machine instructions. 

The current categories were formulated by the following strategy: 
Divide the integers into two groups, small and large integers. 
Divide the ey numbers into two categories small and large 
floating. The small category will be the data cypes 
that machine instructions are available for their conversions. 
The large category consist of data types that there are no machine instructions for 
their conversions or the instructions must be emulated (LIBSEMULATE) 
for some VAX machines. 

This categorization will provide conversions that are fast and smooth. 

As a result we have the following : 


INTEGER ~-> SMALL_INTEGER 
LOA ~-> SMALL_FLOAT 
SMALL_INTEGER ==> bu i wu i bi 
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| LARGE_INTEGER 
LARGE _FCOAT 
wii 
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‘Intermediate L 


SIDE EFFECTS 
Every routine in this module turns on every arithmetic trap in PSW. 
ser ler aust have LIBSEMULATE as handler if any G or H conversions are 
asked for. 


BEGIN 


LOCAL 
CVT_ROUND_FLAG, 
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vivant 12-808=138e $3330 :20 DEBUG.SRC SacevYok BSos1 . (8) 
; 1751 1877 1! LARGE_INTEGER ==> lu: q 'Intermediate OU 
3 iF § 1 4: 1! SMALL_FLOAT -=> f i d 'Intermediate D 
3; 17 1879 1! LARGE_FLOAT ==> gi h 'Intermediate H 
3 1754 1880 1! C --> nu i nl i nlo i nr i nro i: nz !Intermediate P 
3 i 5 : 1 ! } NBDS --> nbds !Intermediate T 
; 17 ; 1 ‘ 8 4. Upon return from FIND_CVT_PATH, the main routine then enters a 
; 1758 1884 1! CASE statement that selects the desired conversion. This CASE 
3 ie : H ; is explained in detail in the first paragraph of the statement. 
3 176) it ! : AUTHOR: Farokh Morshed 01-09-1981 
: 1708 1 Ha 1 ! FUNCTIONAL DESCRIPTION: 
: 1764 1890 1! 
3; 1765 1891 1! Upon entry, FIND_CVT_PATH is called to identify which conversion is to be 
3: 1766 1836 1! done, i.e. from which CLASS, DTYPE combination to which CLASS, DTYPE 
3; 1767 133 1! combination. 
>; 1768 1894 1! Also, FIND_CVT_PATH will do all the work of identifying the errors such 
3; 1769 1895 1! as unsupported class, data type, or combinations. 
; 1770 1896 1! This routine is just a tree of CASE statements, where the outermost 
3; 1771 1897 1! level CASE statement labels have been determined by the FIND_CVT_PATH 
3 1776 1898 1! routine. | 
: 177 1899 1: | 
3 1774 1900 1! 
3; 1775 1901 1 ! CALLING SEQUENCE: | 
3; 1776 1308 1! 
3: 1777 1905 1! ret_status.wlc.v = DBGSCVT_DX_DX ( SOURCE.rx.dx, DESTINATION. wx.dx 
; 1778 1904 1! <OUTLEN.wwu.r> <CVT_ROUND_FLAG>) 
3; 1779 1905 1! 
: 1780 1906 1 ! FORMAL PARAMETERS: 
3; 1781 1907 1! 
3 a4 1908 1! SOURCE Address of source descriptor. 
; 178 1909 1! DESTINATION Address of destination descriptor. 
3 1784 1910 1! OUTLEN Output length. Optional parameter for this. : 
3; 1785 1911 1! routine to put the length of actual data (without padding) in. 
3; 1786 at 7% This is used only when destination is of data 
3: 1787 1913 1! type T. 
3; 1788 1914 1! CVT_ROUND_FLAG A flag set to true to indicate the conversion 
3; 1789 1915 1! result is rounded. 
3; 1790 1916 1! 
3 1791 1917 14 ! IMPLICIT INPUTS: 
3 16 1918 1! 
3; 179 1919 1! NONE 
3: 1794 1920 1! 
3; 1795 1921 1°! IMPLICIT OUTPUTS: 
3 1 19 § 1! 
3 1 19 1! NONE 
3 1 1924 1! 
3 1 1925 1! 
3 1 19 $ 1! 
3 1 19 7! 
31 1928 1! 
s 1 1929 1! 
3; 1 1930 
31 1931 
3; 1 19 ¢ 
3 1 19 
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GCVTDX 18-56 -1984 23:57:30 AX-11 Bliss-32 V4.0-742 Page 46 
Miteeit 12-80 8-198e $3:io:e0 {oEBUG. SRCIDBGCVYDK.B52¢1 . (8) 
3 1 1934 SRC_.NFO: BLOCK RA SRE_INEO LENGTH. BYTE) FIELD (SRC_INFO_FIELDS), : gouree information structu 
g Y 1935 DST INFO: BLOCK Lk pera ante , NGTH, BYTE) FIELD (DST_INFO_FIELDS), ! Destination information st 
: 1810 19 OUTPUT BUFFER: BLOCKCK“OUTPOT_BUFFER_LENGTH, BYTE), | 
:1 ij 1938 DESTINATION_PTR, ! Ptr to destination 
; 181 1939 INTMED DATA: BLOCK CK_INTMED_DATA_LENGTH, BYTE), ! Intermed*ste data buffer. 
> 1814 1940 TEMP_BOF1: BLOCK pK TERE BUF LENGTH, El. ' Holds t. _vrary data. 
; 1815 1941 TEMP_BUF2: BLOCK KA TEMP BUF_LENGTH, BYTEJ, ! Holds temporary data. 
; 1816 1968 CLASS_S_ DESC: BLOCK (8, BYTET, ! A class $ descriptor for a 
: 13) 194 CLASS_SOURCE: BYTE, ! Class of source VMS descri | 
; 1818 1944 CLASS_TARGET: BYTE, ! Class of target VMS descri | 
; 1312 1945 FINAL-LEN, ! Length of data in TEMP_BUF | 
; 1820 1368 CVT_PATH ' Calculated convert path. 
; 1821 194 NO_BIGITS, i Number of digits in decina 
; 18 ¢ 1948 DIGITS_IN_FRACT, ! Fractional digits (OTSSCVT 
; 18 1949 FLOAT_SCACE, ' Scale of a Floating number 
>: 1824 1950 SIGN, ! Sign of the Floating numbe 
: 1825 1951 STATUS ' Return status. 
: 1826 1958 LRGST_P_LU, i Largest LU in a packed dec 
: 1827 195 LRGST_D_LU, ' Largest LU in a double flo 
: 1828 1954 PACK _ZERO, ! A zero in a packed decimal 
3 1803 1955 GST_H_LU, ' Largest LU in a H floatin 
; 18 1956 BUF _OFFSET, ! Offset to actual data in 
: 1831 1957 EXT BLANK, ! Location of next blank in 
; 1836 1958 OUTPOT STR_LEN, ! Length of actual string th| 
3 183 1959 _P0S, ! Bit offset in source. 
; 1834 1960 DST_POS, ! Bit offset in destination. | 
3; 1835 1961 ! to destination (optional p| 
; 1e38 1308 § BIN_SCALE, 
3: 183 196 SCALE; ! Effective scale (source sc. 
; 1838 1964 § 
3; 1839 1965 MAP 
: 1840 1966 2 OUTPUT: REF BLOCKC, BYTE) 
> 1841 1967 2 DESTINATION_PTR: REF BLockt, BYTE, 
3 HS 9k 4 1968 2 SOURCE: REF BLOCK[,BYTE), ! Source VMS descriptor. 
3; 186 1969 § DESTINATION: REF BLOCKL,BYTE); ! Destination VMS descriptor 
> 1844 1970 
3; 1845 1971 2 BUILTIN 
3 1846 1906 ACTUALPARAMETER, 
3: 18467 197 ACTUALCOUNT; 
3 1848 1974 
: 1850 1976 ! Establish CVT_HANDLER as handler. 
: 1851 1977 : 
; 1336 1978 NABLE 
> 185 1979 CVT_HANDLER; 
3 1854 1980 
; 1855 1981 
3 1336 19 § ! These literals are used a few Lines down to test whether we 
3 1320 + : are doing a conversion from decimal string or packed. 
3; 1859 1985 LITERAL 
; 1360 19 MIN_DEC_DTYPE = DSCSK_DTYPE_NU, ! 15 
; 1861 19 MAX~DEC"DTYPE = DSC$KIDTYPE-P; ‘ 21 
: 1868 19 1o+ 
3 1 1 


i Jf the destination or source is Absolute Date Time cut it off here 


3 
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15-s¢ -1984 23:57:30 AX-11 Bliss-32 V4.0-742 Page 47. 
12-8 08= 1382 $3: 7n ide DEBUG. SRC IDBGCVTDK.B 3251 . (8) 
: } 5 199) H and do the conversion. 
: 1 1398 if (.DESTINATION CDSC$B pTyPe] EQL DSCS$K_DTYPE_ADT) OR ' 
; ! 3 1D3e (.SOURCE CDOSCSB_DTYPE] EQL DSCSK_DTYPE_ADT) } 
: 1870 1 IF (.DESTINATION CDSC$B_DTYPE] EQL DSCSK_DTYPE_T) AND i ADT to text 
; 1871 1999 (. SOURCE Loscse DTYPES EQL DSCEK DTYPE ADT) ~ ! 
3 1 Lf: 1338 THEN ' 
3; 187 1 BEGIN ! 
.) Nap : 
; 1876 it CLASS_S_DESC dsc$b_class = dsc$k_class_s; i Build the string descripto| 
3: 187 CLASS_S_DESCLdsc$b_dtype = ggcSk_dtype_t; } 
3 1 i 004 LASS_S_DESCEdsc$w_length] = 23; ! | 
; 187 005 CLASS-S-DESCCdsc$a_pointer) = .DESTINATION CDSCSA_POINTER); : 
: ieee O08 4 cont TSYSSASCTIM (TEMP, CLASS_S_DESC, .SOURCE CBSCS$A_POINTER], 0))! 
: 188¢ 008 SIGNAL( DBG$_DELTIMTOO ); 
3 sti S04 OUTPUT _STR_LEN =". TEMP; } | 
> 1885 011 i 
3; 1886 Sig IF (.DESTINATION COSC$B_DTYPE] EQL DSCSK_DTYPE_ADT) AND ' Text to ADT 
3 1587 O13 -SOURCE CDSCSB_DTYPE] EQL DSC$K_DTYPE_T) | 
> 1889 015 BEGIN 
; 1890 016 LASS.3DESELdscSb.cless = dsc$k_class_s; ! Build the string descripto| 
3; 1891 017 CLASS_S_DESCUdsc$b ecype c 43 : : 
: 198 018 CLASS_S_DESC pdsC30_t GTH) = .SOURTE SCU$W_LENGTHI; : 
3; 189 019 CLASS _S_DESC COSCSA_POINTER] = .SOURCE CDSCS$A_POINTER); § 
4 1998 Ost 4 ay TSYSSBINTIM( CLASS_S_DESC, .DESTINATION CDSCSA_POINTER])) | 
+ 1896 03¢ ; SIGNAL( DBG$_ABSDATSYN ); i He didn't Like to text for 
: iBoe 05% evse’™ | 
; + +44 028 ~ SIGNAL( DBG$_ILLTYPE ) Nothing but ADT to text or 
> 1901 027 BEGIN i 
; 130§ 036 Get the conversion rounding flag. TRUE = round. | 
3 1904 080 iF ACTUALCOUNT() GTR 3 | 
3: 1905 031 THEN 
3 1906 O3e CVT_ROUND_FLAG = ACTUALPARAMETER(4) 
3: 1907 0 ELSE 
: 1308 ne CVT_ROUND_FLAG = FALSE; 
: 1910 0 
3 }} a 3 ; : Strip the non-significant zeros for packed decimal. 
; 191 35 if .SOURCECDSC$B8_DTYPE) EQL_DSCSK_DTYPE_P AND 
: a ? zOCST IMATION BSCSB_DTYPE] NEQ BSCSk_BTYPE_T 
: 1916 beg SOURCE = DBGSSTRIP_ZEROES(. SOURCE); 
3 1918 4 | 
3; 1919 bes ! This a is so that a special error can 
3 1389 7 ! be signalled for reserved operand dur ng a decimal string conversion. 
3: 1921 04 ! Note that this test relies on the fact that the dtypes for the 
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14-Sep-1 16:4 EBUG. SRC JDBGCVTDX.832;1 (8) 
; 13 ; 8 ! decimal ose vns data types are cover the range from the MIN_DEC_DTYPE 
: 13 i ; code to the MAX_DEC_DTYPE code. 
: 1925 ‘ DECIMAL CONVERT = 
3; 19 § § (“SODRCE EDSC88 DT PE GEQ MIN_DEC_DTYPE) AND 
3; 19 (. SOURCELDSCSB_DTYPE] LEQ MAX_DEC_DTYPE); 
: 1959 085 
: 19 $28 ! DESTINATION_PTR is used to indicate the destination 
; 1931 2 ! of the converted data. If the data type is unaligned, then 
3; 19 ; 0 $ ! the output-buffer pointer points to a temporary buffer. Else, 
3 3 $7? ; the output-buffer pointer points to the caller's buffer. 
; + 4 5 bes if ,DESTINATIONCDSCSB_CLASS] EQL DSCSK_CLASS_UBS 
: 19 oes BEGIN 
3; 19 064 4 OUTPUT = OUTPUT_BUFFER; 
; ts 065 2 +? eet ten = .DESTINATIONCDSCSA_POINTER]; 
> 1941 06? ELSE 
; be 4 068 OUTPUT = .DESTINATIONCDSCSA_POINTER); 
HB 
; 1382 4 : Zero and blank out these records for FIND_CVT_PATH. 
> 1947 $78 CHSFILL (0, K_SRC_INFO_LENGTH, SRC_INFO); 
3 1948 074 ; CHSFILL (0, K_DST_INFO_LENGTH, DST_INFO); 
3 1949 075 CHSFILL (0, K-INTMED DATA_LENGTH, INTMED. DATA); 
; 1950 076 CHSFILL (3C* °, K_TEMP_BUF_LENGTH, TEMP_GUF1); 
3 1951 07 CHSFILL (ZC *, K-TEMP_BUF_LENGTH, TEMP~BUF 2); 
3 1938 078 OUTPUT_STR_LEN = 0; 
: 1984 080 
: 1955 081 ! This descriptor is always class S, dtype t. 
3; 1956 ORs ' It is used on various occasions to call routines that require 
: 1330 st descriptors as their parameters. 
3 1959 085 CLASS_S_DESC [DSCSB_DTYPE) = DSCSK_DTYPE_T; 
: 1960 5] CLASS_S_DESC CDSCSB_CLASSJ = DSCSK_CLASS_S; 
Be 
; 1968 44 Initialize some constants. 
3 1965 091 LRGST_P_LU = UPLIT (3P' 44294967295"); 
3 1298 9 LRGST_D_LU = UPLIT (2D°+4294967295'); 
3; 196 09 LRGST_H_LU = UPLIT (2H'+#4294967295"); 
3; 1968 b98 PACK_ZERO = UPLIT (ZP'+0"); 
As ; 
: 1971 $99 ! SRC_INFO structure will contain the information about the source data. In 
: 1376 44 3 ' most cases it will point to the INTMED_DATA buffer because the source data is 
; 197 ! usually converted to an interned ate, So before calling FIND_CVT_PATH we 
3 138 ; $ set up the pointer and Length fields of SRC_INFO to be INTMED_DATA. 
; 197% 1 : SRC_INFO (S_POINTER] = INTMED_DATA; 
; 1977 SRC~INFO CS"LEN) = K_INTMED_DATA_LENGTH; 
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14-Sep-1 16: DEBUG. DBGCVTDX. . (8) 


VTDX.832;1 


uw 


| 
| 
BEGIN 
CASE gTatus FROM K_INVNBDS TO K_UNSCLAROU OF 
K UNSDTYSTA, K_UNSDTYROU]: $DBG_ERROR ('DBGCVITDX\DBGSCVT_DX_X: inva 
K 


type in descriptor’) 
lass in descriptor’) 
Lass-dtype combinati 
umeric byte string d 


1979 

19 ! Call FIND_CVT_PATH to get information on the source and destination 

1981 : (SRC_LINFC and DST_INFO), and to determine the conversion path 

13 ¢ } (CVT_PATH). 

Hb ¢ } STATUS = FIND_CVT_PATH (.SOURCE, .DESTINATION, SRC_INFO, DST_INFO, CVT_PATH); 

19 1 
1989 1 ! If we got an error returned to us by FIND_CVT_PATH, it means that one of the 
1988 1 ! descriptors = SOURCE or DESTINATION = was invalid to this routine. 

1989 1 ! Errors are represented as neyative values. They are Listed in the completion 

139 1 ! status sect ign of FIND_CVT_PATH. Although we get a variety of errors, 

128 : } from -1 to -7, overlapping can occur. 

1998 1 if .STATUS LSS 0 

1994 THEN 

24 

1997 

1998 

1999 


- a li 
-UNSCLASTA, K_UNSCLAROU]: SDBG_ERROR (‘DBGCVTDX\DBGSCVT_DX_DX: invali 
pre 3 bal K_UNSDESROUJ: $DBG_ERROR Sb peeeyrpe ppeseue DX_DX: ynveri 


t SDBG_ERROR ("DBGCVTDX\DBGSCVT_DX_DX: inva 


asaca 


! Enable all arithmetic traps, and figure out the scale fator to be used by 
! the main CASE statement below. The scale factor in SCALE will be a decimal 
scale factor. The scale factor in BIN_SCALE will be a binary scale factor. 


BISPSW (ZREF (K_SET ARITHMETIC _TRAP)); 
SCALE = (IF .SRC_INFO $_BIN_SCKLE] THEN 
(IF .DSTIINFOCD-BIN-SCALE) THEN 
BIN_SCALE = (IF TSRC_INFOLS-BIN_SCALE) T 
(IF .DSTIINFOCD-BIN-SCALE) T aa 
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We now have SRC_INFO, DST_INFO, and CVT_PATH, and the source data 
has been converted to an intermediate type. Next step: to go from 
the intermediate form to a scaled version to the actual data type 
called for by the destinaton descriptor. 


3s sb 3 4 be tt We 
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The following explains the objective of the conversions: 


The objective is to convert from intermediate data type provided by 
FIND_CVT_PATH routine to the data type that the user has requested in 
the destination descriptor. 


The intermediate data is_ in INTMED_DATA, except for when source is 
of data type T. FIND_CVT_PATH does not convert or transform the T 
data types so the intermediate data for this data type is described 
by the SOURCE descriptor itself. 


The first step is to scale the intermediate data. The scale is 
calculated as: SCALE = (source scale) - (destination scale). 
Scaling cannot always be done on the intermediate data because there 
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vives 12-80-1382 $3 :toses {DEBUG. SRC sacevYDK Boost - (BS 
may be under/over flow, so scaling is done on either fhe intermediate 
or the higest data type of the category that the destination data type 
zolis in, The data type with greater range is always selected. 
Caution is taken not to select a sc Ling intermediate 
data type that requires G, H, or O instructions, unless source or 
destination ‘* of these types. 
At the beginning of each quo~ceee statement, there is a macro; 
each macro is type specific, and scales the intermediate data type 
involved in that sub-case. 
Regardless of whether there is scaling savelved or not the intermediate 
3 type is converted to scaling intermediate data type. 
The scaled intermediate data will again end up in INTMED_DATA buffer. 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
} Macros that do this scaling are called M_SCALE_x_y: convert x to y, where 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
C 
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049 

050 the result value in y is scaled according to the scale specified 

823 in source and destination descriptors. 

038 The next step is to convert the scaled intermediate data to destination 
054 data type and move it to where the destination address points to. 

055 This is done as close to a ‘interrupt preot. manner as possible. 

S28 Since only NBDS can be of semantics other than fixed, only in case of 

et NBDS (or just text) is the destination copied via a ATL call (LIBSSCOPY_x). 
O23 PSW is masked such that IV, FU, DV bits are set. 

061 ASE. -CVT_PATH FROM K_SMLINT_SMLINT TO K_NBDS_NBDS OF 


ss 
WEseent9Rs @3:97:32  YAIGNY BL ggs32 ve. .742, 


CK SMLINT_SMLINT): 
Rr SCALE 
CSE egbESTInation COSCSB_DTYPE] FROM DSCSK_DTYPE_V TO DSCSK_DTYPE_Svu OF 
wa aie -8U): 


IF (Qurput CBYTE_1]) = .INTMED_DATA CLONG_1]) GTRU K K LRGST_BU 
THEN SIGNAL TOBGS_IINTOVF> 1, .DBGSGC_OPCODE_NAME); 


a 8 8 Te nt 


SSLESRALLES 


BBB ESE AMM E BEBE EE EEE EP NNNE FENN FFE EP 


COSCSK prvve #U): 


IF (OUTPUT CWORD_1] = .INTMED =bATA CS_LONG_1]) GTRU K_LRGST_WU 
_ THEN SIGNAL Tacs. LINTOVF, 1, .DBGSGL_OPCODE_NAMES; 


COSCSK_DTYPE_B): 
CVTLB CIRTMED DATA, .OUTPUT); 


COSCSK_DTYPE Ww 
CVTLw CIRTRED =DATA, .OUTPUT); 


COSCSK prvPE td 
ouTPUT CONG. 1] = .INTMED_DATA CS_LONG_1); 


COSCSK DTYPE.V. DSCSK_DTYPE_SV, DSCSK_DTYPE_VU, DSCSK_DTYPE_SVU, DSCSK_DTYPE_TFJ: 
OUTPUT: REF BITVECTORCK OUTPUT _BUFFER_LENGTH * af? 
INTMED_DATA: BITVECTORCR_INTMED_DATA_CENGTH * 8); 

INCR_ I FROM 0 TO .DST_INFOCD_LENJ-1 DO 
OUTPUTC.1] = .INTMED_DATAC.1]; 
END; 
END; 
CINRANGE, OUTRANGE): 
$DBG_ERROR (' DBGCVTDX\DBGSCVT DX_DX: smlint_smlint'); 


TES; !For”SMLINT_SMLIAT 
END; 


SSSSSFESES 
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LLRGINT, K_LRGINT_LRGINT): 


_SMLINT 
5 BEGIN 
SELECTONE .CVT_PATH OF 
SET 
§ [K_SMLINT_LRGINT): 
4 EGIN 
‘ M_SCALE_L_OU; 
: END; 
[K_LRGINT_LRGINT): 
45 N 
4 M_SCALE_OU_OU; 
TES; 


rong? tam -DESTINATION COSCSB_DTYPE] OF 


Coscon Pre Lu): 
IF (. sJNTMED DATA CLONG 2) OR  INTMED para fons 3) m - INTRED DATA CLONG_4]) NEQ 0 
SIGNA (BGS TeENTOVE , _-DBGS$GL_OPCODE_NAME) 
ouTpure th one 1 a MED _DATA ions. i 
Vea SRC “INFOCS. SIGN 


- NOUTPUTELONG. 1] = =. OUTPUTCS_LONG_1]; 


CDSCSE PTE. Q, DSCSK_DTYPE_QuU): 


64 
65 IF ¢. JNTMED DATA CLONG_3] OR » INTMED DATA CLONG_4]) NEQ 0 
66 N SIGNAL (08GS LTINTOVF, 1, .DBGSGL_OPCODE_NAME); 
of iF <SRt INFO CS_SIGNI 
$9 IF .INTMED_DATA CLONG_1] EQL 0 
0 THEN 
71 BEGIN 
z tei mE? DATA CLONG_2] NEQU %x'80000000° 
74 BEG 
75 GRTRED DATA fLONG_2) = -INTMED_DATA [LONG 33 MOR 2X"FFFFFFFF'; 
? JNTRED. DATA CLONG- -INTMED-DATA CLONG_2) + 1; 
7 END 
7 ELSE 
BEGIN 
1 INTMED_DATA CLONG_1] = .INTMED_DATA CLONG_1) XOR ZX'FFFFFFFFS; 
¢ INTMED-DATA CLONG_2) = .INTMED-DATA CLONG_ XOR 3 X'FREFFFFFF’; 
INTRED “DATA CLONG-1) = .INTMED-DATA CLONG_1) + 1; 


OUTPUT CONG. 1) = .INTMED_DATA [LONG_1 
OUTPUT LONG"2) = .INTMEDDATA CLONG~ “23: 
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ep-1 :30 AX-11 Bliss 
b-sep- 198 $3:% 244 DEBUG.SR RCiDB vy 
BEGIN 
} The S_SIGN field is set if we need to negate the octaword. 
if .SRC_INFOCS_SIGNI 
THEN 
BEGIN 
! Check for %X*80000000000000000000000000000000' 
! This should not q° through the code below, but rather 
} just be deposite 


ir NOT (. ttle 34 DATA LONG Fat 9 
-INTMED“DATA Fat 9 AND 


. INTMED ~DATA LONG: 
. INTMED-DATA E Gt %x' "30000000" ) 
THEN 
BEGIN 
INTMED_DATA: VECTORCK_INTMED_DATA_LENGTH/4); 
: Take the one's complement. 
NCR tk LONGWORD FROM 0 TO 3 DO 
MEB_DATAC.NEXT_LONGWORD] = 
ETATED _DATACTNEXT “LONGWORDJ MOR SX°FFFFFFFF’; 
Add 1 to the result. 


NCR ae LONGWORD FROM 0 TO 3 D 
INTMED_DATAL .NEXT _LONGWORD3 EQLU 2X°FFFFFFFF 


tH N 
pag DATAC.NEXT_LONGWORD] = 0 


LONG_ : 


BEGIN 
INTMED DATAL.NEXT_LONGWORD] = 
ont shoes MED D_DATAL= NEXT “LONGWORD) +1; 


END; 
END; 
END; 
CHSMOVE (16, INTMED_DATA, .OUTPUT); 
END; 
COTHERWISE): 
SELECTONE .CVT_PATH OF 


K_SMLINT_LRGIN 


$DBG_ERROR U bBGCVTDX\DBGSCVT _DX_DX: «smlint_irgint'); 


Ck =tRGint LRGIN 


Te $086 ERROR U eGcvTDx\DEGscvT -DX_DX: Lrgint_irgint'); 
TES; 'For SMLINT_LRGINT, LRGINT_LRGINT. 


H 6 | 
GCVTDX 15-Sep-1984 23:57:30 VAX-11 Bliss-32 v4.0-742 p 4 
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MLINT SMLFLTCMPLX, KLLRGINT SMLFLTCMPLX, K SMLFLTCMPLX_SMLFLTCMPLX, K_DEC_SMLFLTCHPLK, K_NBDS_SM_ 
SELECTONE .CVT_PATH OF | 


CK_S 


CK_SMLINT_SMLFLTCMPLX): 
BEGIN 


M SCALE_L_D; 
END; 


CK_LRGINT_SMLFLTCMPLX): 
M_SCALE_OU_D; 
END; 
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OUTPUT LONG~2] = .INTMEDDATA CLONG~2);: 


CINRANGE, OUTRANGE): 
CASE -DESTINATIONCDSCSB_DTYPE] FROM DSCSK_DTYPE_FC TO DSCSK_DTYPE_DC OF 


Cosc TYPE_FCI: | 
F CINTMED_DATA, OUTPUT); | 
F CINTMED“DATA¢8, .OUTPUT+4); 


RIPIPIMININIPIPIPYPINIPYIPIPDNIPINIPINININPYIPINIPIPIPINIPI PI PINPIPINIPIPIPINIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPUPINUND 
oO 
Pree ot oP ot ot ot ot al et ot et et ot or or eee or ee | 
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8 
33 CK_SMLFLTCMPLX, SMLFLTCMPLX]: | 
41 64 M_ SCALE_D_D; 
4g 365 END; ~~ 
4 36 
44 6 CK_DEC_SMLFLTCMPLX): 
te re M_ SCALE_P_D 
<3 370 nit 
48 71 
49 7 CK_NBDS_SMLFLTCMPLX): 
330 7 BEGIN 
51 374 CLASS_S_DESC CDSCS$W_LENGTH] = .SRC_INFO CS_LEN); 
$3¢ 375 CLASS-S-DESC CDSCSA-POINTER] = .SRC_INFO CS POINTER); 
25 376 STATUS = OTSSCVT_T_B (CLASS S_DESC, INTMED DATA, 0, -.SCALE 
354 377 _IGN_BLKS OR"K_ENB_UNDERFLOW OR K_IGR_TABS OR K ENB SCALE)); 
38 378 IF NOT ~STATUS THEN SIGNAL (DBGS_INVNUMSTR, 1, .DBGSGC_OPCODE_NAME); | 
357 380 TES; 
: a58 CASE .- DESTINATION COSC$B_DTYPE] FROM DSCSK_DTYPE_F TO DSC$K_DTYPE_D OF 
61 4 
6¢ 385 CDSCS$K_DTYPE_F): 
304 387 CVTDF (INTMED_DATA, .OUTPUT); | 
65 8 CDSCSK DTYPE_D3: 
390 OUTPUT CLONG_1] = .INTMED_DATA CLONG_1); 
9 
38 
94 
95 
i 
00 
01 
02 


RoMPononofonononofofonofronon 
We ISSE 


$K_D 
BEG! 
CVTD 
CvTD 
END; 
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CDSCSK_DIYPE DCJ: 
CHSMOVE 716, INTMED_DATA, .OUTPUT); 


Mw 


3 4 4 

: 1 4 4 

3 § 4 4 

3 4 4 

; 407 4 CINRANGE, OUTRANGE): 
3 2285 408 4 SELECTONE .CVT_PATH OF ; 

4 | 
: 410 4 eT _SMLINT Hen LD ag te 

3 4 411 4 RROR | {{DBGCYTDX\DBGSCVT_ DX_DX: smlint_sml fltcmplx'); 

; 228 tig 4 CK_LRGINT a x 

; 2290 413 4 $ RROR SWUFLTORPUAS ev DX_DX: Irgint_smlfltcmplx'); 

$ 91 414 & Ck SMELT CRP bab rte 
: 36 ai2 2 k_pee ear nave ("DBGCVTDX\DBGSCVT_DX_DX: smlfltcmplx_smlfltcmplx"); 
3: 2294 “13 4 $086 ERROR Dak CVTDX\DBGSCVT _DX_DX: dec _smlfltcmplx'); | 
3: 2295 218 4 CK_NBDS_SMLFLT 

H 4 t38 ¢ t $086 TERROR’ (' bBGCVTDX\DBGSCVT _DX_DX: nbds_smlfltcmplx"); 

3; 2298 421 4 TES; 

$ 39 é : TES; !For SMLINT_SMLFLTCMPLX, LRGINT_SMLFLTCMPLX, SMLFLTCMPLX_SML 
3 1 424 4&4 

$ 2 425 3 


ee CS_SIGN] THEN OUTPUT CO, 15, 1, 0] = 1; 


DEBU DBGCVTDX.B3251 (13) 


ja oa fin ie : 

7 
| GCVTDX Bo sop-1984 23:57:30 YAX-11 BLi 4.0-74 | 
voes000 228ep- 1882 F3:toses G. sRCSDBeCVIDK BSoe Page 36) 


; 4 

; 4 ? 3 CKSMLINT LRGFLTCMPLX, K.LRGINT.LRGFLTCMPLX, K SMLFLTCMPLX LRGFLTCMPLX, K_LRGFLTCMPLX_LAGFLTCMPLX, K_ 
; 230 429 4 SELECTONE .CVT_PATH OF 
1 ee a 
: 310 a3¢ CK_SMLINT LRGFLTCMPLX]: | 
: 231 434 M_SCALE_L_H; 

; 13 439 ‘ ee: ~~ 
; 13 4 ? 4 CK_LRGINT_LRGFLTCMPLX): | 
> 2317 139 3 M_SCALE_OU_H; 

a ee ink | | 
; 20 ane 6 CK_SMLELTCMPLX_LRGFLTCMPLX]: | 
: 322 46a 5 M_SCALE_D_H; | 
; 334 Stee ani | 
> 2325 447 4 CK_LRGFLTCMPLX_LRGFLTCMPLX): | 
> 2326 sida “BEGIN. —~ | 
> 2327 2449 § IF .SOURCELDSC$B_DTYPE] EQL DSC$K_DTYPE_G OR 

: 3528 2450 5 ;SOURCECDSCSB_DTYPE] EQL DSCSK-DTYPE-GC | 
: 2330 2452 § M_SCALE_G_H | 
: 2331 453 5 ELSE ~ wiz 

; 9332 ae M_SCALE_H_H; | 
: $3e tH : ND; | 
; $336 suey a CK_DEC_LRGFLTCMPLX): 

3; 2336 2458 5 N 
i 3337 2459 5 M_SCALE_P_H; 

3; 2338 2460 4 END; 4 
: $309 2461 4 TES; 7 
> 2341 sies CASE .DESTINATION CDSCS$B_DTYPE] FROM DSCS$K_DTYPE_G TO DSCSK_DTYPE_H OF | 
1 ae a 
3 2344 466 4 CDSCSK_DTYPE_G): | 
i 3345 467 4 CVTHG CINTMED_DATA, .OUTPUT); 

> 2347 469 4 CDSC$K_DTYPE_H): 

: 3348 470 4 CHSMOVE (16, INTMED_DATA, .OUTPUT); 

: 2350 472 4 CINRANGE, OUTRANGE): 

> 2351 473 4 CASE .DESTINATIONCDSC$B_DTYPE] FROM DSCSK_DTYPE_GC TO DSC$K_DTYPE_HC OF 

| ORY sd 

; 334 47 4 CDSCSK DIYPE GCI: 

; 36 478 CVTHG (INTMED_DATA, ,OUTPUT); 

> 235 479 CVTHG (INTMED“DATA*16, .OUTPUT+8); 

3 4 cB ? END; 

: 2360 482 4 CDSC$K_DTYPE_HC): 


GCVTDX 1$-50p-1986 23:57:30 -YAXe11 B 
¥Oe=000 12r8ee=19ke f2iteee ~— EbtauG.8 
CHSMOVE (32, INTMED_DATA, .OUTPUT); 


1, 0J = 1; 


—e CS_SIGN] THEN OUTPUT (CO, 15, 


4 a 
4 4 
4 4 CINRANGE, OUTRANGE): 
486 6 SELECTONE .CVT_PATH OF 
rt + 4 ek =SMLINT LRGFLTCMPLX): 
489 4 $DBG_ERROR (' port TDX\DBGSCVT -DX_DX: smlint_lrgfltcmplx"); 
490 4 CK_LRGINT ERGrL TCMP 
491 4 $DBG_ERRO R'(DBECVIDX\ BGSCVT _DX_DX: Irgint_lrgfltcmplx'); 
138 4 Ck -SALELTENPL ate ay 
495 4 ERR Rr ( bectyTDx\ BGSCVT _DX_OX: smlfltcmplx_lrgfltcmplx'); 
494 & Ck oLRGELTCREL X_LRGFLTCMPLX 
495 4 R-(' DaGcVTDX\DBGSCVT. DX_DX: Lrgfltcmplx_lrgfltcmplx'); 
496 4 [k_DEC CRGFLTCMPLA 
+38 ? ‘ $DBG_ ERROR ("DBGCVTDX\DBGSCVT_DX_DX: dec_irgfltcmplx'); 
: | 
4 TES; 
2 TES; ‘For SMLINT_LRGFLTCMPLX, LRGINT_LRGFLTCMPLX, SMLFLTCMPLX_LRGFLTCMPLX, LRGFLT. 
$0) 
2 3 
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DEC, K_DEC_DEC]: 


TONE .CVT_PATH OF 
SET 


CK_SMLINT_DEC): 
BEGIN 
M SCALE_L_P; 
END; 


ore COSCSB_DTYPE] FROM DSCSK_DTYPE_NU TO DSCSK_DTYPE_P OF 


COSCS$K_DTYPE_NUJ: 
BEGIN 


IF _.SRC_INFO CS_SIGN) THEN SIGNAL (DBG$_CVTNEGUNS, 


1, .DBG$GL_OPCODE NAME); 
gyre (RO_DIGITS, INTMED_DATA, LIBSAB_CVTPT_U, DESTINATION CDSCSW_LENGTH), .OUTPUT); 


COSCSK_DTYPE_NLJ: 
CVTPS (NO_DIGITS, INTMED_DATA, 


—_,,_- COSCSW_LENGTH] EQL 0 THEN 0 ELSE .DESTINATION CDSCS$W_LENGTH] - 7 


CDSCS$K_DTYPE_NLOJ: 
BEGIN 


CVTPT (NO_DIGITS, INTMED_DATA, LIBSAB_CVTPT_U, DESTINATION CDSCS$W_LENGTH], TEMP_BUF1); | 
TEMP_BUFI~CBYTE 1] = (IF~.SRC_INFO CS $16N) THEN .(. TEMP_BUF1 CBYTE_1] + LIBSAB_CVT_U_O | 

8 + 10) ELSE fa TeRe BuFT ceyte 1 + LIBSAB_CVT_U O° 48)); | 
CHSMOVE (DESTINATION COSC$W_LENGTH), TEMP_BUF1,~.OUTPOT); 


CDSCS$K_DTYPE_NR): | 
BEGIN | 


CVTPS (NO_DIGITS, INTMED_DATA, DES_LEN, TEMP_BUF1): 

+ . ;, BYTE) = .TEMP_BUF1 CBYTE_1); 
H .DES"LEN, INTMED DATA); 
CHSMOVE (SDESTLEN + 1, INTMED_DATA, OUTPUT); 


COSCSK_DTYPE_NRO 
CvTPT (NO_DI 
(IF $ 


m 
—cr 
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AX-11 Ot igsnte v4.0-7 
DEBUG. SRC 


DBGCVTDX. ases 1 


LIBSAB_CVTPT_Z), DESTINATION CDSC$W_LENGTH], .OUTPUT); 
COSCSE PT YPE PD: 
CVTPS (NO_DIGITS, INTMED DATA, D STINATION DSC$W_LENGTH], TEMP_BUF1); 
VTSP (DESTINATION [DSCSQ LENGTHA, TEMP_B DESTINATION: CDSC$Q_LENGTHI, 
VIPS (NO_DIGITS, INTMED pATA O’pIgI TS Uren. 
pvisr (NO[DIGITS, TEMP_BOF1, bESTINATION’ Coscso_ LENGTH, -OUTPUT); 
CINRANGE OUTRANGE): 
LECTONE .CVT_PATH OF 
7 TSMUINT DEC): 
ny SDeG ERROR ("DBGCVTDX\DBGSCVT_DX_DX: smlint_dec'); 
ht Bit ERROR ("DBGCVTDX\DBGSCVT_DX_DX: dec_dec"); 
TES; ; 'For SMLINT_DEC, DEC_DEC 
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-OUTPUT); 


fF 7 
GCVTDX 15-Sep-1984 23:57:30 AX-11 Bliss-32 V4.0-742 P 60 
voe-000 122360-1982 13: foree DEBUG. SRCIDBGCVTDX.B32;1 290 418) 


3 2461 1 ; 

3 246 ; Ck -LRGINT _SMLINT): 

> 246 4 

+ 24646 4h 6 SCALE.0 

3 465 5 ‘ IF ¢ ATNTRED ODATA CLONG_2] OR .INTMED_DATA CLONG_3] OR .INTMED_DATA CLONG_4]) NEQ 0 

; ae? 2 4 SIGNAL (DBG$ LINTOVE. 1 :D8GSGL. OPCODE_NAME) 

3 468 288 4 CASE. - DESTINATION DSCSB_DTYPE] FROM DSCSK_DBTYPE “4 TO DSC$K_DTYPE_SvU OF 

: 2470 290 4 

3 2671 91 4 CDSC$K_DTYPE_BU): 

3; 2467 236 BEGIN 

: 267 9 IF + INTMED DATA CBYTE_2] OR , INTMED DATA CWORD 2] NEQ 0 

3: 2476 594 THEN (DBGS- LINTOVF, - BBGSGL_OPCOBE_NAME) ; 

+ 2675 595 OUTPUT teyie. ‘ . INTMED_DATA tions” 1); 

: 2676 396 4 END; 

3; 2677 597 4 

3 rth oo8 4 COSCSK DTYPE_wud: 

+ 2480 600 2 IF .INTMED DATA CWORD 2] NEQ 0 THEN SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME); 
3: 2481 601 5 OUTPUT CWORD_1] = .INTMED_DATA CLONG_1); 

: 248 602 4 END; 

3: 248 603 4 

3 rtf rer : castex DTYPE_B): 

+ 2486 606 3 IF .INTMED DATA CS_LONG_1] LSS 0 THEN SIGNAL (DBGS$_IINTOVF, .DBGS$GL oP cone NAME); 
+ 2487 260 IF_.SRC_INFO CS_SIGN) TREN INTMED_DATA CLONG_1] = =. INTMED. pata’ CS_LONG_1 

: 2488 2608 5 CVTLB ETNTHED DATA, .OUTPUT); 

5 2489 609 4 END; 

3 2490 610 4 

; 491 611 4 CDSCSK DTYPE. W): 

+ 249 $ei8 5 IF + INTRED DATA CS_LONG_1] LSS 0 THEN SIGNAL (DBGS_IINTOVF, -DBGSGL_OPCODE_NAME); 
+ 2496 614 5 IF .SRC_INFO CS_SIGN TREN INTMED_DATA CLONG_1] = =. INTMED “pata CS_LONG_1); 

> 2495 615 5 CVTLW CTH MED _DATA, OUTPUT); 

: 2696 616 4 END; 

: 2497 2617 4 

: 498 2618 ‘ CDSCSK_DTYPE_L): 

: 34 3620 : IF .INTMED_DATA CS_LONG_1] EQL K_LRGST_NEG_L AND .SRC_INFO CS_SIGN] EQL 1 

: 250 63¢ 3 OUTPUT CLONG_1) = .INTMED_DATA [S_LONG_1] 

oe St ' 

; 208 625 6 IF + INTRED DATA CS eh Qns 1] LSS 0. THEN S rons (DBGS_ LINTOVF, .DBGS$GL OP CODE _NAME) ; 
3 2506 6 6 6 IF C_INFO i} SIGN] TREN INTMED DATA _1] = =. INTMED ‘pata CS_LONG_1) 
: 2507 6 § OuTPUT “rLONG. 1}7"= .INTMED_DATA 

: 2508 628 : 

Bp BG 7 

; 312 $3 4 cseag ore. DSCSK_DTYPE_SV, DSC$K_DTYPE_VU, DSCSK_DTYPE_SVU, DSC$K_DTYPE_TF): 
: 251 6 

: 2514 6 OUTPUT: REF BITVECTORCK OUTPUT BUFFER_LENGTH * 8). 

: 315 6 5 ; INTMED_DATA: BITVECTORCR_INTMED_DATA_CENGTH * 8 

3 319 6 INCR I FROM 0 TO .DST_INFOLD_LEN) - 1 DO 


18-5. sen-1984 AX-11 Bligs-32 v4.0-76 p : 
et ae ts Vie aed a yO aR OS Tan ee Se age 48) 
BEGIN 
ae PUTE.13 = .INTMED.DATAC. 1]; 
END D; 
eae, OUTRANGE?: 
SDBG/ERROR (*DAGCVTDX\DBGSCVT_DX_DX:  Lrgint smlint*); 


TES; ‘Por “PRGINT "enLINT 
END; 
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3 647 

3 648 3 (KL RGINT DEC, K_SMLFLTCMPLX_DEC, K_LRGFLTCMPLX_DEC, K_NBDS_DEC): 

5 2531 650 4 CLASS_S_DESC [DSC$W_LENGTH] = K_TEMP_BUF LENGTH: 

; g 651 4 CLASS-S-DESC COSCSA-POINTER) = TEMP_BUF2 

; 6 j 4 SELECTONE .CVT_PATH "OF 

3 6 4 SET 

3 5 654 4 

; 655 4 CK_LRGINT_DECI 

; 2 6 & BEGIN 

; 6 CVTROUH CINTHED DATA TEMP_BUF1 

; 2 9 68 IF .SRC_INFO CS"SIGNS THEN” TEMP bur ICIS, 

: 2540 6 STATUS = FORSCVT_H_TF (TEMP_BUFT, CLASS.S best, < SCALE, 0, 0, 

; 241 660 4 END; 

; 4g 661 4 

3 256 66¢ 4 CK_SMLFLTCMPLX_DEC): 

; 344 66 BEGIN | 
: 2546 664 IF .INTMED_DATA<15, 1, 0> THEN SRC_INFO [S_SIGN) = 

3 208 665 STATUS = FORSCVT_D " * CINTMED DATA, CLASS_S_DESC, “e' SCALE, 0, 0, 1); 

> 254 666 4 END; 

3; 2548 667 4 
: 2549 668 4 CK_LRGFLTCMPLX_DEC): 

; 2550 9 3 BEGIN 

: 2551 670 IF .INTMED_DATAC15 O> THEN SRC INEO (S_SIGN) = 1; 

; 33 671 IF .SOURCELDSCS$B ‘Stvpe EQL DSCSK_BTYPE_G OR 

; 233 67¢ g,SouRcE DSC$B-DTYPE) EQL DSC$K~ ~DIYPE ~bc 

; 335 674 3 evsestATUS = FORSCVT_G_TF (INTMED_DATA, CLASS_S_DESC, 0, .SCALE. 0, 0. 1) 
PY | 
; 285 676 5 STATUS = FORSCVT_H_TF (INTMED_DATA, CLASS_S_DESC, 0, .SCALE, 0, 0, 1); 

: 2558 677 & ND; 
: 2559 678 4 

: 360 679 4 Ck -NBDS DECI: | 
; 36¢ 681 CLASS_S_DESC poscsu_ LENGTH) =_-SRC INFO CS LEN): | 
> 256 68 CLASS-S-DESC COSCSA-POINTER) = .SRC_INFO CS POINTER); 
: 2564 683 5 STATUS = OTSSCVT_T_A (CLASS.S *pésc. “TEMP_BUF1, 0, -.SCALE, | 
3: 2565 684 (K_IGN_BLKS OR™K_ENB UNGERF | Ow OR K IGN_TABS- OR K_ENB_SCALE)) 

: 2566 685 IF NOT.STATUS THEN SIGNAL (DBG$_INVNUMSTR, 1, .DBGS$GC_OPCODE “NAMED ; | 
3 2567 686 IF .TEMP_BUFI<15, 1, 0> THEN SRC-INFO CS_sind = = 1; 

: 2568 68 CLASS_S_BESC FoSCsu LENGTH = K_TEMP_BUF LENGTH; 
3 569 688 CLASS-S-DESC CDSCSA-POINTER] = TEMP_BUF 2: | 
; 370 689 ; STATUS = FORSCVT_H_TF (TEMP_BUF1, CCASS_§ DESC. 0. 0. 0. 0. 1) 

: 38% et 1; 

: 257% 693 4 IF NOT .STATUS THEN SIGNAL (DBGS DECOVE, 1, .DBGSGL_OPCODE_NAME) 

+ 2575 69% 4 BUF _OFFSET = CHSFIND NOT CH (K_TEMP BUF LENGTH, TEMP_BUF2,~2C° S$. TEMP_BUF 2; 

: 376 695 4 NO_DIGITS = K_TEMP "BOF. “LENGTH = .BUF COFFS ET - 2; 

: 2578 re] 4 CASE .DESTINATION CDSCSB_DTYPE] FROM DSCSK_DTYPE_NU TO DSCSK_DTYPE_P OF 

> 2579 698 4 SET 

; 1 i 4 CDSCSK DTYPE. Nu): 

3 25 4 7 Q IF .SRC_INFO CS_SIGN] THEN SIGNAL (DaGS CVINEGUNS, 1, .DBGSGL grcone NAME); 

> 2584 70 IF :NO_DIGITS GTR .DESTIN ATi ON COSCSW_ ren GTH) THEN Sfchhe (DBC 


DECOVF. 1, .DBGSGL_OPCOD | 
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> 2585 7 CHSFIL (2x" 330g .DESTINATION coscsw LENGTH - ,NO_DIGITS, TEMP_BUF1); 

3 705 Ehmoy EC 1617S, TEMP BUFe BUF OFFSET + j 

; 7 ures DESTINATION Scéu- LENGTH NO_DIGITS); 

; , 2 CHSMOVE  TADESTINATION. CDSCSU_LENGTHI. TEMP_BUF~ OUTPUT): 

> 2590 709 4 

: 2591 710 & COSCSK_DTYPE_NLJ: 

; % 711 BECIN ~ 

: 259 rie LOCAL 

> 2594 71 DES_LEN; 

. ey Beek 

3 $99 rig IF .DESTINATION CDSC$W_LENGTH] EQL 0 THEN 0 ELSE .DESTINATION CDSCS$W_LENGTH] = 1 

: 2599 718 IF -DES_LEN LSS .NO.DIGITS THEN. SIGNAL (DBGS DECOVF, 1, -DBGSGL _OPCODE_NAME); 

3 2600 719 CVTSP RG DIGITS, TEMP_BUF2 + .BUF_OFFSET, DES _LEN, TEMP_BUF 1 

; $03 , 9 ; vt PS (DES_LEN, TEMP "B0FI, DES_LEN; .OUTPUT); 

3 260 722 & 

; 604 , 5 4 COsesx bTYPE, NLO): 

; 606 725 CHSFILL (%xX'30", .BUF_OFFSET + 1, TEMP BUF2): 

; 260 726 IF .NO_DIGITS GTR .DESTINATION COSC$wW_CENGTH) THEN SIGNAL (DBGS DECOVF, 1, .DBGSGL_OPCOD 
3 2608 727 5 BUF _OF SET. = K_TEMP_BUF_LENGTH = -DESTINATION CDSCSW_LENGTH] 
3 2609 728 BLotk [ P_BUF2 + [BUFOFFSET, 0 0;, BYTE) ="CIF SRC_ info Cs S16N) THEN .(.BLOC | 
+ 2610 729 7 ei B F + _oFFset, 6, 6, 8, 6:, ey } + LIBSAB_CVT - 48 + 10) ELSE .¢ 
: 2611 730 3 -BLOCR CTEMP_BUF2~+ .BUF OFFSET, 6, 6 0; BYTE) + (1BSAB. CvT_U 0 - ago): 

: 6g 731 CHSMOVE (. DEST IAT ion COSCSWILENGTHS, TEMP_BUF -BUF_OFFSET, .OUTPOTY; 

Be ie * 

> 2615 734 CDSC$K_DTYPE_NR): 

; 616 735 5 BEGIN ~ 

: 261 7 6 AL 

: 2618 7 DES_LEN; 

: $035 tao 8 Beemne 

3 e3t 740 IF .DESTINATION CDSC$W_LENGTH] EQL 0 THEN 0 ELSE .DESTINATION CDSC$W_LENGTH) - 1 

3 26 748 IF {NO DIGITS ¢ GTR snes cbEN THEN SIGNAL (acs DECOVF, 1, .DBGSGL_OPCODE_NAME); 

5 2626 74 ChsPILL® (Hx: 30% .NO_D TEMP_BUF 1): 

3 2625 744 SHOVE  ( NO_DIGLIS, tae Bug ? sy “orFs Fr sr + 17> TEMP BUF1 + .DES_LEN - .NO_DIGITS); 
; 6 6 745 Block TEMP peur + .DES _LE 3. BYTE] = .BLOCK CTEMP_BUF2 + Buf OFFSET, 0. 
3 6 749 5 CHSMOVE (.oé§ TEN +°1, TEMP_BUF1, .OUTPUT); 

3 26 749 & 

; 6 1 750 4 CDSCSK DT YPE_NRO, DSCSK_DTYPE_NZ): 

: 26 5 13¢ 3 IF .NO_DIGITS GTR DESTINATION COSC$W_LENGTH] THEN SIGNAL (DBGS$_DECOVF, 1, .DBGSGL_OPCOD | 
> 26 ie 2 CVTSP TNO DIGITS FAP ty UF2 + .BUF COFFSET. ES TINATION COSC$W_LENGTH), TEMP_BUF1); 

3 2635 754 CVTPT (DESTINATION c ¥ ghENctn “TEMP BUF1, 

3 26 755 é (IF .DESTINATION DTYPES EQL BSCS$K DTYPE_NRO THEN L1BSAB_ CVTPT_O ELSE 

; 26 736 LIBSAB_CVTPT_ i: Cest NATION DSC$W_CENGTH], .OUTPUT); 

: Le ? END; 

; 2640 et CDSCSK_DTYPE_P): 

+ 2661 760 5 BEGIN 


WEEE SSPE LLLP 


Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge ee Ge Ge 


ibaa 


NO_DIGITS GIR 31 THEN SIGNAL (DBGS.D 
P TNO_DIGITS, TEMP_BUF2 + .UF_OFFSET, 
OUTRANGE): 
ETONE .CVT_PATH OF 
KALRGINT,D 


c ERROR (' * pmeacamies, DX_DX: 
{k _SRLECTERP 

$DBG_ER ROR” a DBGCVTDX\DBGSCVT_DX_DX: 
CK_LRGFLTCMPL 
ee -— 86 ERROR” ( DAGCVTDX\DBGSCVT _DX_DX: 
nied SpaC “ERROR ("DBGCVTDX\DBGSCVT_DX_Dx: 


DBGCVTDX. ase 1 


COvF 3 
OPERGIHD. -OUTPUT); 


smi fltcmplx_dec"); 
irgfltcmplx_dec'); 


!For LRGINT_DEC, SMLFLTCMPLX_DEC, LRGFLTCMPLX_DEC, NBDS_DEC. 
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! Take care of otnery 2 pcote factors by doing 
the divide or multiply 


WHILE .BIN_SCALE LSS 0 DO 


UPLIT (%D'2.0") TEMP _BUF1); 
ALE = .BIN_SCALE + 


N 
2¢ 
~s¢ 
BIN, SCALE GTR 0 DO 
2 
-5 


o2z<a- 


WHIL 


mm 2m 


Oo2zr cre 


(UPLIT (%D°2.0°) TEMP _BUF1); 
CALE = .BIN_SCALE - 1; 


MOBS NOTS 
ze 
) OW) Oe 


STATUS = FORSCVT_D_TF (TEMP_BUF1, CLASS_S_DESC. .DIGITS_IN_FRACT, .SCALE); 


2.09 09 09 Cs Cd GD 0D GD 09 0D Gd CD Gd CD Cd Cd OD Cd CO Cd C9 CD C9 CD CD CO 
MEW @OOONOAUE WIN $ O OOVNOAUS WN OO 


$88) a 

5 CK_SMLINT_NBDS, GINT_NB DEC_NB fF 

; et f | SELECTONE “DESTINATION COScSB. DI TPE 

3 2665 7 

; v4] f ¢ 2 COSCSK _ BU, DSCSK_DTYPE_T, DSCSK_DTYPE_VT, DSCSK_DTYPE_AC, DSCSK_DTYPE_AZ]: 
5 2668 786 4 CLASS.§ DESC COSCSW_LENGTH] = K_TEMP_BUF_LENGTH; 

; rg 44 f 2 CLASS_S_DESC atthe “POINTER] = TEMP_BuUF 23 

: 267 7 ; 4 ' Compute 'DIGITS_IN_FRACT’ based on scale. 

3: 267 7 4 ' For Ro gay scales, the number of digits in _~* Svectten 
3; 267 791 4 ! is jus ‘re absolute value of the scale. This 

3 2676 P36 4 ' to work 184 both binary and decimal scales. For  onanpte, 
3; 2675 793 4 ! binary | 1 i'? 1°59'¢ f8 Sector -2) = binary 1s 

3 ore 794 4 '1¢ h has 2 digits in the trectten. 
3; 267 795 4 ! For Selneneetes “Saleh igits. IN_FRACT is ze 

3; 2678 re 4 ! First do a consistency Ns... tO ensure we do nat have 

3; 2679 797 & ! both decimal and binary scale factors - if we do, 

3; 2680 798 4 ! something is wrong. 

3; 2681 799 4 ' 

3 Ose 800 4 DIGITS_IN_FRACT = 

3 683 801 ; If -BIN_SCALE NEQ °%) AND (.SCALE NEQ 0) 

: 685 803 4 $DBG_ERROR(*DBGCVTDX\DBGSCVT_DX_DX inconsistent scale factors’); 
4 rey] 8046 4 IF .BIN_ SCALE LSS 0 

3: 268 805 4 THEN 

3; 2688 B08 4 DIGITS _IN_FRACT = -.BIN_SCALE; 

3: 2689 807 4 If .SCALE CSS°0 

3; 2690 808 4 THEN 

: re4 , 2 DIGITS_IN_FRACT = -.SCALE; 

: £38 11 4 SELECTONE .CVT_PATH OF 

3 2694 12 4 SET 

3; 2695 1 4 

3 $8 : 4 CK_SMLINT_NBDS): 

; 6 CVTLD CINTMED_DATA, TEMP_BUF1); 

: 1 

3 1 ; 

3 ‘ 

7 

; é 

: | 

/ i 

3 4 

F} 4 


CK_LRGINT_NBDS): 
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egret DSCSB_DTYPE J NEQ DSCSK_DTYPE_O ! A004 


wat beh a 


BEGIN 
CVTR OUH (INTMED_DATA, TEMP_BUF1) 
IF .SRC_INFO ots “SIGNS THEN” TEMP “bur 1<15, ,o=1; 


! Take care of binery scale factors by doing 
the divide or multiply. 


WHILE .BIN_SCALE LSS 0 DO 


(C0 Cd GD CD Cd Co CO Cd 00 CD: $9949 9 


H 4 

3 4 

3 4 : 

; 7 BEGIN ~ 

FH : g DIVH2C(UPLIT (%H'2.0°) ig x _BUF1); 

> 2731 BIN_SCALE = .BIN_SCALE + 

; ¢ 0 END; 

: i WHILE .BIN_SCALE GTR 0 DO 

3 ¢ 6 BEGIN ~ 

: 5 6 MULH2(UPLIT (2%H'2.0°) ig vt BUF I); 

; 4 6 BIN.SCALE = .BIN_SCALE = 1; 

; 739 5 STATUS = FORSCVT_H_TF (TEMP_BUF1, CLASS_S_DESC, .DIGITS_IN_FRACT, .SCALE); 
: 2741 § 4 ELSE ' A004 
3 274 860 BEGIN ' A004 
3: 274 861 LOCAL :; ' A004 
3: 27446 86 Previous_Value : VECTOR[4); ' A004 
: $h0e Bea p ' A004 
s oes 865 INTMED_DATA : VECTOR(4); ' A004 
: ys bey Don't support scale factor on octaword. 

: 731 869 if .BIN_SCALE NEQ 0 

; re? ta $DBG_ERROR(*DBGCVTDX\DBGSCVT_DX_DX scale factor on octaword not supporte 
i P32 Me CLASS_S_DESCC DSCSW_LENGTH J] = 0; ' A004 
: 275 875 les 

; P38 378 il Init the Previous value 

: 2760 878 CHSMOVE( 16 ' A004 
> 2761 8 CHSPTR( INTMED_DATA), i A004 
3 a rt] CHSPTR( Previous_ value ) ): ' A004 
: 2764 lee 

3; 2765 8 § i By dividing the value by ten and multiplying it by 

3 766 8 i ten the original value and the new value may be 

3: 276 5 i syatracted Se 9, opteta the value of the least 

3; 2768 i toni’ cant d 

3 g , Ropes dy attovs: “building up of the string 

: got) 3 bo 1 A004 
+ 277 91 6 BEGIN i A004 
+ 277% 92 6 LOCAL i A004 


3; 2775 93 
: e77 4 
3 138 3¢ 
: 277 38 
: $f 3 
> 2781 35 
; e7 0 
3; 27 901 
3; e7 306 
3 f 5 39 
: e7 308 
3 2788 306 
3; 2789 90 
3: 2790 908 
3: 2791 909 
3 re 910 
3; 279 911 
3 2794 aig 
3 2795 91 
3 2796 914 
3; 2797 915 
3; 2798 a | 
3; 2799 91 
3; 2800 918 
3; 2801 919 
3 Hi 920 
3; 280 921 
3 9 ¢ 
3; 2805 : ; 
; i 35 
3; 2808 9 § 
3; 2809 4 

3; 2810 928 
3: 2811 929 
3 alg 930 
3; 281 931 
3: 2814 3 
3: 2815 93 
: 2816 934 
3 HA 334 
+ 
OBR 
3 28 : 941 
3 2824 3e8 
3: 2825 94 
: 28 $ 944 
: 28 945 
3; 2828 368 
3; 2829 

3; 28 948 
3; 2831 


VLDL DAA AAA AA AAA AAA AAA AAA AA AAA AAA AAA AAA AA AA AAAS AAA AAAPG AAO 
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Saved_Value : VECTOR(4); ! A004 
1e4 
: Save the previous value 
CHSMOVE( 16 ' A004 
CHS$PTR( INTMED_DATA), i A004 
CHSPTR( Previous_value ) ); ' A004 
'e¢ 
Divide by ten 
DBGSCVT_SCALE_OU_DOWN_BY_10_R1( INTMED_DATA ); ' A004 
lee 
Save the divided value for the next time 
CHSMOVE( 16 ' A004 
CH$PTR( INTMED_DATA) i A004 
CHSPTR( Saved_value 5 ); i A004 


ioe 
Multiply by ten to remove for the subtraction 
DBGSCVT_SCALE_OU_UP_BY_10_R1( INTMED_DATA ); ' A004 


lee 
Move the previous digits down 


DECR Current_position FROM .CLASS_S_DESCCDSC$W_LENGTH) = 1 


CHSWCHAR( CHSRCHAR( CHSPTR( .CLASS_S_DESCC DSCSA_POINTER J] + .Curren 
CHSPTR( .CLASS_S_DESCC DSCSA_POINTER J~+ .Current_position 
lee 
Subtract and put the new digit in the string 
CHSWCHAR(.Previous_value(0J-.INTMED DATALO] + %C'0", ! A004 
CHSPTRT .CLASS_S_DESCC BSCSA_POINTER] ) );! A004 
lee 
Increment the Length 


CLASS_S_DESCC DSC$W_LENGTH ) = ' A004 
~CLASS_S_DESCE DSCS$W_LENGTH } + 1; i A004 
lee 

Saved value becomes the previous value 
CHSMOVE( 16 1 A004 
CHSPTR( Saved_value) i A004 
CHSPTR( INTMED_DATA 5 ); i A004 
END ' A004 
WHILE (.INTMED_DATA NEQ 0) OR i A004 
(,INTMED"DATA NEQ 0) OR i A004 
(INTMED"DATA NEQ 0) OR i A004 
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ifs0 “19 :57:3 AX-11 Bliss-32 V4.0-742 
12-80 8- 198 $3:30:2 DEBUG. SRCIDBGCVIDX.B32;1 
(. INTMED_DATAL 0 J] NEQ 0); ' A004 
kee ' A004 
Load in a '=" if there is one 


if .SRC_INFOL S_SIGN J 
THEN 


BEGIN 
DECR Current_position FROM .CLASS S_DESCCDSC$W_LENGTH] - 1 


CHSWCHAR ( ees CHSPTR( .CLASS_S_DESCE DSCSA -POINTER ] + .Curren 
na TRC .CLASS_S_DESCE DSCSA_POINTER J~+ .Current_position 


CHSWCHAR( 2C*- 
-CLASS_S S_DESCE DSCSA_FOINT; 


RJ 
ftps $s mits pscsus LENGTH”) = .CLASS_S_ DESCE Dstsue LENGTH J + 1; 


lee 
} Put a '." on the end just Like CVTROUH 


CHSWCHAR(ZC'.", CHSPTR( .CLASS_S_DESCE DSCSA_POINTER] + ! A004 
-CLASS~S-DESCL DSCSW-LENGTH J));! A004 


STATUS = SS$_NORMAL; ' A004 
END; ! A004 


CK_DEC_NBDS): 
BEGIN 


Don't support binary scale factor on packed. 
IF .BIN_SCALE NEQ 0 
THEN 


Page oft 


SDBG_ERROR("DBGCVTDX\DBGSCVT_DX_DX binary scale factor on packed not support 


- INTMED~ DATA, NO. DIGIT 
G DIGIT 
-D 0 
(K_TGR_BLKS OR"K~ENB_UNDERF we Ow OR K. 
STATUS”= = FORSCVT_H_TF CTENP _BUFI, CLASS~ 


TES; 


BUF _OFFSET = CHSFIND_NOT_CH (K_TEMP_BUF _LENGTH, TEMP_BUF2, %C° °) = TEMP_BUF2: 
ANK = CHSFIND-CH TK_TEMP_BUF-LENGTH-.BUF_OFFSET, TEMP_BUF2+.BUF_OFFSET. %C° "); 


EXT BL 
IF "NEXT BLANK EQL 07 
FINAL_LEN = K_TEMP_BUF_LENGTH - .BUF_OFFSET 


NAL_LEN = .NEXT BLANK - .BUF_OFFSET = TEMP_BUF2; 
IF DIGITS. IN_FRACT EGL 0 


N 
FINAL_LEN = .FINAL_LEN = 1; 

IF NOT .STATUS 

THEN 
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DEBUG.S 
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| 
| 


BEGIN 
CLASS _S_DESC CDSC$W LENGTH] = K_TEMP_BUF_LENGTH; 
IF_.CUT-PATH EQL K_BEC_N 
THEN 

DIGITS_IN_FRACT = 31 
ELSE 

IF gDST_INFO CD_LEN] - 9 LEQ 0 

mee IN_FRACT = 33 
DIGITS_IN_FRACT = MIN (33, .DST_INFO CD_LEN] = 9); 

STATUS = F Onset af Bate (TEMP. B CLASS-S_DESC,~.DIGITS_IN_FRACT, .SCALE, 0, 4); 
IF NOT .STAT DBG PERROR ( Utpgkeseperppesevi Dx Dx? err or in h-to-te eonversio: 
BUF OFFSET = “ens rie NOTCH (K TEMP BUF_LENGTH, TEMP~BUF2, %C° 1) TEMP _BUF 2; 
FINAL LEN = K_TEMP_BOF_LENGTH = .BUF_OFFSET; 


OUTPUT_STR_LEN = .FINA bat 
SELECTONE <DESTINATION BSesa. DTYPE) OF 


CDSC$K_DTYPE_AC): 
BEGIN 


E 
MAP 
OUTPUT: REF VECTORC, BYTE); 
CLASS_S_DESCCDSCSW_LENGTH] = .FINAL_LEN; 
CLASS-S_DESCCDSCSA_POINTER] = QuTPY 1]; 
TATUS = LIBSSCOPY-R_DX6 {. FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, CLASS_S_DESC); 
IF gaiATus EQL LIBS_STRTRU THEN * STGNAL (DBCS. ISTRTRU, T, .DBG$GL_OPCODE_NAME); 
STATUS THEN” ST ENAL (. STATUS); 
durPurcos = .FINAL_LEN; 
CDSC$K_DTYPE_AZ): 
BEGIN 
MAP 
QUTPUT: REF VECTORC, BYTE); 
CLASS_S_DESCCDSCSW_ LENGTH) = Pin NAL LEN: 
CLASS-S_DESCLDSCSA_POINTER] = OUTPUTCOJ: 
STATUS = LIBSSCOPY-R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF qOrF ser CLASS_S_DESC); 
IF .STATUS EQL LIBS_ ae TRU ee SIGNAL (DBCS ISTRTRU, T, .DBG$GL _OPCODE _NAME 5 ; 
IF NOT .STATUS THEN™ S{GNAy TUS); 
OUTPUTC.FINAL_LEN * 1) = 
END; 
COTHERWISE): 
STATUS = LIBSSCOPY_R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, .DESTINATION); 
IF .STATUS EQL LIBS_STRTRU THEN SIGNAL (DBGS_ ISTRTRU, T, .DBGS$GL_OPCODE_NAMES; 
1f NO ~STATUS THEN SIGNAL (.STATUS); 
TES; 
END; 
COTHERWISE): 


SELECTONE .CVT_PATH OF 
K_SMLINT_NBDS): 


| 
| 
| 


TES; 


15-sep-1984 43:37:20 AX-11 Oh Seecevy bi esos 


14-Sep-1984 12:16:44 DEBUG. SRC 


tk _LRGINT NDS) ("DBGCVTDX\DBGSCVT_DX_DX: smlint_nbds"); 
tk ~ Se gEtOR ("DBGCVTDX\DBGSCVT _DX_DX: Irgint_nbds'); 
ess SDBG_ERROR ('DBGCVTDX\DBGSCVT_DX_DX: dec_nbds'); 


. 'For SMLINT_NBDS, LRGINT_NBDS, DEC_NBDS 
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oscule 


CK_SMLFLTCMPLX_SMLINTJ: 
BEGIN 


~o 
VTi 
ODONOW 


000 


M_SCALE_D_D; 
IF_.CVT_ROUND_FLAG 
CVTRDL (INTMED_DATA, TEMP_BUF1) 


ELSE 
CVTDL (CINTMED_DATA, TEMP_BUF1); 


ae COSC$B_DTYPE] FROM DSCSK_DTYPE_V TO DSCSK_DTYPE_Svu OF 


COSCS$K_DTYPE_BU): 


IF .TEMP_BUF1 pLone 1] GTRU K_LRGST gu THEN SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME | 
Ds g | 


QuTPuT CBYTE_1 TemP_BUF1 CBYTE_T 
F | 


SESEFELES 


CDSCSK DTYPE_wu): 


IF .TEMP_BUF1 LONG 
QurPUT (QoRD_1) =. 


1] GTRU K_LRGST_WU THEN SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME | 
TEMP_BUF CWORD_T); | 
CDSC$K_DTYPE_B): | 

CVTLB (TEMP_BUF1, .OUTPUT); 
END; 


COSCSK_DTYPE_w): 
CVTLW (TEMP_BUF1, .OUTPUT); 
END; 
COSCS$K Bryne LJ: 
OUTPUT CCONG_1) = .TEMP_BUF1 CS_LONG_1); 
COSCSK DIYPE_V. DSCSK_DTYPE_SV, DSCSK_DTYPE_VU, DSCSK_DTYPE_SVU, DSCSK_DTYPE_TF): 
MAP 
OUTPUT: REF BITVECTORCK OUTPUT BUFFER_LENGTH * 8], 
INTMED_DATA: BITVECTORCR_INTMED_DATA_CENGTH * 8]; 
INCR_I FROM 0 TO .DST_INFOCD_LEN] - 1 DO 
OUTPUTC.1] = .INTMED_DATAC.1); 
END; 
END; 
CINRANGE, OUTRANGE): : 
SDBG_ERROR ('DBGCVTDX\DBGSCVT_DX_Dx: snl fltcapls salint’); 


TES; 'ForSMLFLTCMPLX_S 
END; 
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CK_SMLFLTCMPLX_LRGINT): 
BEGIN 


M_SCALE DD; 
CASE DESTINATION COSCSB_DTYPE] FROM DSCSK_DTYPE_LU TO DSCSK_DTYPE_O OF 


CDSCSK DTYPE_LU): 
IF CMPD (INTMED_DATA, .LRGST_D_LU) GTR 0 THEN SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NA. 
BICPSW (ZREF (K"SET_ARITHMETIC-TRAP)); y ‘. | 
IF _.CVT_ROUND_FCAG 
a CVTRDL C(INTMED_DATA, .OUTPUT) 

CVTDL CINTMED_DATA, .OUTPUT); 
B1SPSu (ZREF (K_SET_ARITHMETIC_TRAP)); 

CDSCSK_DTYPE_Q, DSCSK_DTYPE Qu): 

CVTRDQ (INTMED_DATA, .OOTPUT); 

CDSCSK_DTYPE_03: 

BEGIN 


CVTDH CINTMED_DATA, TEMP BUF1); 
CVTRHO (TEMP_BUF1, .OUTPOT); 


CINRANGE, OUTRANGE): 
SDBG_ERROR ('DBGCVTDX\DBGSCVT_DX_DX: smlfltcmplx_Lirgint'); 
os TES; !For” SMLFLTCMPLX_LRGIAT 
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Ck_SMLFLTCMPLX_NBDS): 
SELECTONE <DESTINATION COSCSB_DTYPE) OF 


CDSCSK DIYPE_BU, DSCSK_OTYPE_T, DSCSK_DTYPE_VT, DSCSK.DTYPE_AC, DSC$k_DTYPE_AZJ: 


CLASS_S_DESC CDSCSW_LENGTH] = K_TEMP_BUF_LENGTH; 
CLASS-S-DESC CDSCSA_POINTER] = TEMP_BUF 2; 
DIGITS. INFRACT = 

CASE . . SOURCE COSCS$B_DTYPE] FROM DSCSK_DTYPE_F TO DSCS$K_DTYPE_D OF 


USWN—O” 


CDSC$K_DTYPE_F2: 


CDSC$k_DTYPE_03: 
es 
END; 
IF ,DST_INFO CO_LEN] - 7 GTR 0 
DIGITS IN FRACT = MIN (.DIGITS_IN FRACT, 
STATUS = FORSCVT D TE CINTMED DATA, CLASS_S DESC, .DIGITS_IN_FRACT, .SCALE, 0); 
IF NOT .STATUS TRER $DBG_ERROR (*DEGCVTDXTDEGS CVE DX_DX: “erfor in d-to-te conversion"); | 


| 

| 

} 

| 
| 
BUF _OFFSET = CHSFIND NOTCH (K_TEMP_BUF LENGTH, TEMP_BUF2, %C° *) = TEMP_BUF2; | 

= K_TEMP_BOF LENGTH = .BUF_OFFSET; 

| 

| 

| 

| 

} 


FRR ARARARARRAE EEE E 


WN SO ODONOULWN—OOO 


33s 
NO 


F INAL_LEN 
OUTPUT_STR_LEN = .FINAC_LEN; 
SELECTONE .DESTINATIONCDSCS$B_DTYPE] OF 
DSCSK_DTYPE_AC}: 
BEGIN 


Co: 


I 
MAP 

OUTPUT: REF VECTORC, BYTE); 
CLASS_S_DESCEDSC$W_LENGTH] = FINAL LEN: 
CLASS-S_DESCCDSCSA_POINTER] = OUTPUTL1]: 
STATUS = LIBSSCOPY-R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, CLASS_S_DESC); 
IF .STATUS EQL LIBS_STRTRU THEN SIGNAL (DBG$_ISTRTRU, 1,.DBGSGL_OPCODE_NAME): | 

3 IF NOT STATUS THEN-SIGNAL (.STATUS); | 

QuTPUTLO = .FINAL_LEN; | 


COSCSK prvre seas 


Sooooooeo © 
SSLSARANLS SS 
SDD DPD ES BS BS SSSI ES BS BS BS BS ES BS BB EE ENNIO BB AAI 


NWAIANIANIAWIAA AI AIAIAI AA AAAA 


BEGI 
MAP 
TPUT: REF VECTORC, BYTE) 

CLASS_S_DESCCOSCS$W_LENGTH] = .FINAL LEN: 

CLASS~S_DESCLDSCSA-POINTER] = OUTPUTCOJ: 
10 STATUS = LIBSSCOPY-R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, CLASS_S DESC); 
11 IF .STATUS EQL LIBS_STRTRU THEN SIGNAL (DBGS$_ISTRTRU, T, .DBGSGL_OPCODE_NAMES; 
1 IF NOT .STATUS THEN S1GNA (. STATUS); 
1 OUTPUTC.FINAL_LEN + 1) = 0; 
i END; 


| 
| 
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END; 
COTHERWISE): 


TES; 


FONT TENNEY 


Or DO OK CUM TNO. 
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CK_LRGELTCMPLX, SMLINTI: 

BEGIN 


IF. SOURCEEDSC$B_DTYPE? EOL D 
“ SOURCE LDSC$B-DTYPE) EQL D 


M_SCALE_G_H 
LSE 


M_SCALE_H_H; 
IF _.CUT_ROUND-FLAG 
CVTRHL CINTMED_DATA, TEMP_BUF1) 
CVTHL (CINTMED_DATA, TEMP_BUF1); 
CASE DESTINATION Cosc$6_pDTvPE FROM DSCSK_DTYPE_V TO DSCSK_DTYPE_SvuU OF 
COSCSK_DTYPE_BU): 


IF_.TEMP_BUF1 [LONG 1] GTRU K_LRGST_BU THEN SIGNAL (DBGS$_IINTOVF, 1, .DBG$GL_OPCODE_NAME 
QuTPUT CBVYE 14 = .TEMP_BUF1 tavie. 13; - ws pe 


<? 


CDSC$K_DTYPE_wu): 


IF _ TEMP BUF1 stone 1] GTRU K_LRGST_WU THEN SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME 
— COORD_1] = .TEMP_BUF1 CWORD_T); 


CDSCSK DTYPE_B3: | 
CVTLB (TEMP_BUF1, .OUTPUT); 
END; 


COSCSK_DTYPE_W): 
CVTLW (TEMP_BUF1, .OUTPUT); 
END; 

COSCSK prvpe L): | 
OUTPUT CCONG_1) = .TEMP_BUF1 [CS_LONG_1); 

COSCSK DIYPEV. DSCSK_DTYPE_SV, DSCSK_DTYPE_VU, DSCSK_DTYPE_SVU, DSCSK_DTYPE_TFI: 


NAO 


OUTPUT: REF BITVECTORCK OUTPUT _BUFFER_LENGTH * 8, 
INTMED_DATA: BITVECTORCR_INTMED_DATA_CENGTH * 8); 


INCR_ I FROM 0 TO .DST_INFOCD_LEN) - 1 DO 
OUTPUTC.1] = .INTMED_DATAL.1); 
END; 
END; 
CINRANGE, OUTRAN 


E}: 
$DBG_ERROR ( bBGcvTDX\DBGSCVT DX_DX: Lr fi tcapts smlint'); 
TES; ‘For LRGFLTCAPLX_SMLIAT 
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CKALRGELTCMPLA_LRGINT: 
IF. SOURCEEDSCSB_DTVPE] EG. DSCSK_DTY 
rHejSOURCECDSCSB_OTYPE] EQL DSCSK-DTY 

M_SCALE_G_H 


~ 
NOUN 


M_SCALE_H_H; 
CASE DESTINATION COSCSB_DTYPE] FROM DSCSK_DTYPE_LU TO DSCSK_DTYPE_O OF 


COSCSK_DTYPE_LU): 
BEGIN 
IF CMPH (INTMED_DATA, 
BICPSW (ZREF (K-SET 
IF _ .CVT_ROUND_FCAG 
CVTRHL (INTMED_DATA, .OUTPUT) 


CVTHL (INTMED_DATA, .OUTPUT); 
BISPSw (ZREF (K_SET_ARITHMETIC_TRAP)); 


«LRGST_H_LU) GTR 0 THEN SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NA 
ARITHMETIC" TRAP)); 


CDSCSK_DTYPE_Q, DSC$K_DTYPE Qu): 
CVTRHQ (INTMED_DATA, .OOTPUT); 


CDSCS$K_DTYPE_0): 
CVTRHO (INTMED_DATA, .OUTPUT); 


CINRANGE, OUTRANGE): | 
$DBG_ERROR ("DBGCVTDX\DBGSCVT_DX_DX: Lrgfltcmplx lrgint'); | 
TES; ‘For LRGFLTCAPLX_LRGIAT 
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heSBacevybi casos 


{k “Brel SMLFLTCMPLX): 


CASE nae COSCSB_OTYPE] FROM DSCSK_DTYPE_F TO DSCSK_DTYPE_D OF 


bt tt 


CVTHF CIRTMED DATA, .OUTPUT); 


CVTHD CIRTAED =DATA, .OUTPUT); 
ete OUTRANGE): 


SRIF ARUN OOo NOU Uwe 


CASE -DESTINATIONCDSCSB_ DTYPE] FROM DSCSK_DTYPE_FC TO DSCSK_DTYPE_DC OF 


COSCSK pr vPe. FC): 


CVIHE CINTMED_DATA, 
hd CINTMED_ ~DATASIEN TOUTPUT #4) ; 


MEUM =O OONOUSWAN “OO ONOus 


iw 


COSC$K_DTYPE_DC): 
BEGIN 
CVTHD CINTMED_DATA, . 
CVTHD (INTMED_ “DATA+16, 
END; 

CINRANGE, OUTRAN GE): 
SD BG_ERROR ("DBGCVTDX\DBGSCVT_DX_Dx: 


'For LRGFLTCMPLX_SMLFLTCMPLX 


WBE PNNMNE SENN SESE PEEPLES 
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irgfltcmplx_smifltcmplx'); 
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! If the sign and the scale of the H_Float are zero, 
} then the value is zero. 


| 
] 1 
3 ¢ : CK_DEC_SMLINT): 
: 2 BEGIN 
: 3335 4 IF .DESTINATION CDSCSV_FL_BINSCALE) 
: 4 THEN 
3 BEGIN 
3 : This is a HACK for scaled binary. The Idea is to run the 
3 9 ' scaled packed decimal up to H_Float on then back down to 
‘ ? the particular dtype below. The algorithm is as follows: | 
; ¢ i The destination is a binary scale type so the conversion is 
3 ' done by hand. 
3 3344 ! 1) Get the sign. 
3 5 5 ! ¢} Get the scale of the H_Float. 
s 6 5 ! 3) Check if an overflow will occur. An underflow is 
; 3347 5 : acceptable and will be truncated automatically. 
3 8 : ! 4) Move the most significant H_Float fractional bits 
$ 9 ' into the poncerery destination. 
: 3350 5 . (Note: this includes the redundant most significant 
3; 3351 5 ! fraction bit. 
3 326 5 ' 5) Alter the destination to the correct scale. 
3; 335 5 ! 6) This is an absolute value so correct for the sign. 
3 $2e : } 7) Move the result into the final destination. 
3 3357 : eeketeeeeeneeeere HACK - BAB Dec. 1983 xeeaacnaneneeeeneeee 
; 3358 g M_SCALE_P_H; 
3 3360 Z END 
Py } 
: 1 5 BEGI 
; 36¢ 5 M_SCALE_P_P; | 
; 336 5 CUTPL (NO“DIGITS, INTMED_DATA, TEMP_BUF1); 
: 36% ‘ END; | 
; 3368 4 CASE DESTINATION CDSC$B_DTYPE] FROM DSCSK_DTYPE_V TO DSCSK_DTYPE_SVU OF | 
: 3368 4 
; 365 4 CDSC$K_DTYPE_BU): 
: 370 3 BEGIN 
: 356 5 ! If the target is not a binary scale, then just move the | 
: a7 5 converted value in. 
: 376 ? iF NOT .DESTINATION COSC$V_FL_BINSCALE) 
3 3/8 5 THEN 
3: 3377 6 BEGIN 
3 378 6 IF TEMP_BUFI CLONG_1] GTRU K_LRGST_BU | 
; 350 6 SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME); | 
; $5 QuTPUT CBYTE_1) = .TEMP_OBUF1 CBYTE_13; | 
: 338 ELSE 
3; 3384 
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18-se 1984 23:57:30 AX-11 Bliss-32 V4.0-742 
14-Sep-19 4 13: torae toEBUG. SRCIDBGCVIDK. 83251 
IF_.INTMED_DATACWORD_1] EQL 0 
OUTPUTCBYTE_1) = 0 


ELSE ; 
_BUF1 = 0; 

= .INTMED_DATA<15, 1, 0>; 
ED_DATA<15 


; >= 0; 
T SCALE = .INTMED_DATACWORD 1] - 16384; 
FCOAT_SCALE GTR (7 + .DESTINATIONLDSC$B_SCALEJ) 


SIGNAL(DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME) 


nm ~The 
cr =r Zeon 
m 


BEGIN 
TEMP_BUFI<6, 1, 0> = 1; 
TEMP"BUF1<0, 6, O> = .INTMED_DATA<26, 6, 0>; 
FLOAT_SCALE = ? + .DESTINATIONLDSC$B.SCALE] = .FLOAT_SCALE; 
WHILE” .FLOAT_SCALE GTR 0 DO 
TEMP_BUFICLONG_1] = .TEMP_BUFICS_LONG_1] / 2; 
FLOAT. SCALE = TFLOAT_SCALE = 1; 
If .SIGN THEN TEMP_BUF1 = 0 - .TEMP_BUF1; 
QuTPUT CBYTE_1] = [TEMP_BUF1 CS_BYTE_1); 


CDSCSK_DTYPE_Wu): 
BEGIN 
! If the target is not a binary scale, then just move the 
converted value in. 
if NOT -DESTINATION CDSC$V_FL_BINSCALE] 


BEGIN 
If TEMP_BUF1 CLONG_1] GTRU K_LRGST_WU 


SIGNAL (DBGS$_IINTOVF, 1, .DBGSGL_OPCODE_NAME); 
OUTPUT CWORD_1] = .TEMP_BUF{ CWORD_1]; 


END 
ELSE 


! If the sign and the scale of the H_Float are zero, 
then the value is zero. 


if .INTMED_DATACWORD_1) EQL 0 


OUTPUTCWORD_1] = 0 
ELSE 


6384, 
.DESTINATIONCDSC$B_SCALE)) 


A ——— 
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THEN 
gg IO LINO 1, .DBGSGL_OPCODE_NAME) 


<18, 14, 9: 
C$B_SCALE] = .FLOAT_SCALE; 


. TEMP _BUF1; 


A 
0 
= aot | enatineiee / 2; 
0- 
F1 C$ -WORB_1); 


END; 
CDSCSK_DTYPE_B): 
BEGIN 
! If the target is not a binary scale, then just move the 
converted value in. 
iF 7 -DESTINATION CDOSCSV_FL_BINSCALEJ 


CVTLB (TEMP_BUF1, .OUTPUT) 
ELSE 


C809 0909 INI NINN NNO AAA AAA OO 
WN 9 OONAOUS WN (“OOO NAUES WN" OOONOuW 


A. AANA AAANAAAANWNAAANAAAAAIWN AAAI ANIA AAAI AAAI AA 


PVPUDVU PU DUPV LUI DUSU PUSSIES UIST SSIS 


DN N00 0909 SIND A DIA AAA DAA AAAS SISTINE £* SIO SEN IOD 09 08 SIN NINO OO 


Be Os Be Se Se Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Fe Se Se FH Se Se Se Se Se Se Se SH Se Ge Os Se Se Se Se Se SH Se Se SH Se Oe Se Se Se Se Se Se we 


84 ! If the sign and the scale of the H_Float are zero, 
+4 then the value is zero. 
87 IF .INTMED_DATACWORD_1) EQL 0 
89 OUTPUTCBYTE_1] = 0 
90 LSE 
91 BEGIN 
§ 3 TEMP -BUF1 = 0; 
48 9 SIGN"= .INTMED_DATA<15, 1, 0>; 
484 94 INTMED DATA<15; a 0; 
85 95 FLOAT SCALE = “ine DATACWORD_1] - 
86 % IF, FCOAT. SCALE GTR Po? + DES COT TRATIONLOSeSB. SCALE) 
488 598 SIGNAL(DBG$_IINTOVF, 1, .DBGSGL_OPCODE_NAME) 
89 599 SE 
490 600 
491 601 TEMP_BUF1<6, 1, is = 1; 
% 60 TEMP~BUF1<0, 6 = ,INTMED DATA<26, 
9 60 FLOAT_SCALE = -DESTINATI FON fossa. Rh - .FLOAT_SCALE; 
9% 60% URILE™ «FLOAT * SCALE GTR 0 DO 
496 606 TEMP_BUFICLONG_1) = .TEMP_BUFICS_LONG_1) / 2; 
97 07 FLOAT SCALE = TFLOAT.SCALE = 1; 
499 609 IF .SIGN THEN TEMP BUF =0- Ye BUF 1; 
500 610 OUTPUT CBYTE_1) = [TEMP_BUF1 CS_BYTE_1); 
501 611 END; 
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END; 
END; 
COSCSK_DTYPE_w): 
BEGIN 


! If the target is not a binary scale, then just move the 
} converted value in. 


3 § $13 5 

; 615 4 

3 614 4 

3 5 oi? 4 

; 8 e$ 

; 3508 213 

; 3509 61 

: a19 620 ! 

FH 213 ? 1 IF NOT .DESTINATION COSCSV_FL_BINSCALE) 

; 318 6 j CVTLW (TEMP_BUF1, .OUTPUT) 

Be Be a 

; 218 6 $ 5 ! If the sign and the scale of the H_Float are zero, 
3 aif : f 5 then the value is zero. 

é 233 ? 4 ; IF _.INTMED_DATACWORD_1) EQL 0 

3 3521 631 § OUTPUTCWORD_1] = 0 

: 35 ¢ O36 5 LSE 

3s 35 6 6 GI 

3; 35246 634 6 TEMP_BUF1 = 0; 

; 3525 635 6 SIGN"= .INTMED_DATA<15, 1, 0>; 

3; 3526 6 $ 6 INTMED_DATA<15, 1, 0> = 0; 

3 3527 363 4 FLOAT SCALE = .INTMED_DATACWORD 1] - 16384; 

; 328 3638 i IF -FCOAT_SCALE GTR (T5 + .DESTINATIONCDSC$B_SCALEJ) 
: 283 640 6 SIGNAL(DBGS_IINTOVF, 1, .DBGS$GL_OPCODE_NAME) 
3; 3531 641 6 LSE 

3 236 re 7 

; 353 643 7 TEMP_BUF1<14, 1, 0> = 1; 

: 3534 644 7 TEMP-BUF1<0, 14, O0> = .INTMED_DATA<18, 14, O>; 
3; 3535 645 7 FLOAT_SCALE = 16 + .DESTINATIONCOSC$B_SCALE) = .FLOAT_SCALE; 
3 238 6 7 WHILE .FLOAT_SCALE GTR 0 DO 

3 33 647 8 BEGIN 

3; 3538 648 8 TEMP_BUFICLONG_1] = .TEMP_BUFICS_LONG_1] / 2; 
: 3539 649 8 FLOAT_SCALE = <FLOAT_SCALE = 1; 

: 3540 650 END; 

3; 3541 651 7 IF_.SIGN THEN TEMP_BUF1 = 0 - _.TEMP_BUF1; 

3 24¢ 632 7 OUTPUT CWORD_1] = TTEMP_BUF1 CS_WORD_1); 

; 354 653 6 END; 

3: 3544 654 5 END; 

; 3545 655 4 END; 

; 248 $26 4 

3; 354 65 4 CDOSCSK_DTYPE_L): 

3 208 $28 ; BEGIN 

; 3550 660 5 ! If the target is not a binary scale, then just move the 
: 323 661 ; converted value in. 

3 338 oes -? «DESTINATION COSCSV_FL_BINSCALE) 

3; 3555 665 OUTPUT CLONG_1] = .TEMP_BUF1 CS_LONG_1) 

; 228 066 ELSE 

3; 355 66 

3; 3558 668 ! If the sign and the scale of the H_Float are zero, 


18-52 -1984 23:57:30 AX-11 Bliss-32 V ose 
12-808-138e 95:30:20 DEBUG. ¢ RCID BGCvYD beet 
then the value is zero. 


if .INTMED_DATACWORD_1] EQL 0 


ww 
~o 


D 
TEMP NAUF 1CLONG. W = .T 
FLOAT_SCALE = -FLOAT_S 


ND; 
IF _ .SIGN THEN TEMP -BUF1 = 0 = . TEMP Buel: 
QuTPUT CLONG_1] = TTEMP_BUF 1 CS_ LONG_1 


0 
EMP Bur ICS _LONG_1] / 2; 
CALE - 

0 


60 

3 i 

es gg OUTPUTELONG_1] = 0 

65 BEGIN 

66 TEMP_BUF1 = 0; 

4 SIGN"= .INTME -DATACI5, 1, 0>; 

68 INTMED DATACTS; 1 = 0: 

6 FLOAT SCAL “INT MED DATACWORD.1) < 1638 

20 IF FCOATS LE cate GTR (31 + .DESTINATION pscis. SCALE]) 
re et eee 1, .DBGSGL_OPCODE_NAME) 

74 BEGIN 

75 TEMP_BUFI<30, 1 = 1; 

6 TEMP“BUFI<14, 16, « * = V3 utmen -DATACI6, 16, 0>; 
7 TEMP BUFT<O,” 14 O> = .CINTMED™ 4)<18, 14, 0>; 
78 FLOAT_SCA { + .DESTINATION DSCSB. SCALE] = .FLOAT_SCALE; 
79 WHILE™ -FLOAT. SCALE GTR 0 

80 BE 

81 

Hy 

84 

85 

86 

87 


END; 


AvLSSS 


BRAN 


OUTPUT: REF BITVECTORCK_OUTPUT_BUFFER_LENGTH * 8), 
INTMED_DATA: BITVECTORCR_INTMED_DATA_CENGTH * 8); 


INCR I FROM 0 TO .OST_INFOCD_LEN] - 1 DO 
OUTPUTC.1] = .INTMED_DATAL.1]; 
END; 
END; 
CINRANGE, OUTRANGE): 


$DBG_ ERROR (‘ DBGCVTDX\DBGSCVT DX_DX: dec_smlint'); 
TES; 'For DEC_SMLIAT 


DDI SUSUSVIUSUSUSVSUSUSUSISUSISUSI SSSI SII 


SeLF 


o 
o 
a 


Wn 


BEES LNA MNMNMNMNN ES & ENA NN NOOO NINN NNO OONOAO FOUN 


uw 


CDSCSK DTYPE_V, DSC$K_DTYPE_SV, DSCSK_DTYPE_VU, DSCSK_DTYPE_SVU, DSC$K_DTYPE_TF): 
MAP 


Page 85 


(24) 


9 
GCVT x eal = 3 3 - = | 
vOU-000 1ecSeo- 196 $itgiee — UoEaus. SacSbaacviox 5201 Page 28) 


CK_DEC_LRGINT): 
BEGIN 
M_SCALE_P_P; 


a nee COSCSB_DTYPE] FROM DSCSK_DTYPE_LU TO DSCSK_DTYPE_O OF 


CDSCSK_DTYPE_LU]: 
IF (CMPP (NO_DIGITS, INTMEDDATA, REF (K_PACKLULLEN), .LRGST_P_LU) GEQ 0) 
SIGNAL (DBGS IINTOVE 1. .DBGSGL OPCODE NAME); 


BICPSW CaReF (K SETA net é_TRAP J; 
CVTPL (NO DIGITS INTRED'D ATA <auTPUtD: 
B1SPSu eRe (k_SET vARITAME TIC_TRAP)) 


eer DTYPE_Q, DSCSK_DTYPE_QU, DSCSK_DTYPE_0J: 


CVTPS (NO_DIGITS, INTMED_DATA, NO_DIGITS, TEMP_BUF2); 
CLASS_S_DESC BRERA LENGTH] = .NO-DIGITS + 1; 

CLASS” : DESC “TEMP UF 2; 
_DTYPE_Q OR 
“DTYPE~QU 


FP WWN WNW nnnonononofnonind— 


"OODNANE WN “OVE NOUES WN OOONS 


QQ 


DS 
-DESTINATIONCOSCS$B_DTYPE) EQL DS 


N 
ELS CVTRHQ (TEMP_BUF1, .OUTPUT) 
ND CVTRHO (TEMP_BUF1, OUTPUT); 


74 


o 
Rah ste~peat yar eherd Ok ed a td td 
Ses wu UN“ SOSONeNE UY OOO NOAR WSO 


oa 


CINRANGE, OUTRAN NGE): 
$DBG “ERROR £* DBGCVTDX\DBGSCVT DX_DX: dec_Iirgint'); 
=e. 'For” DEC_LRGINT 


DES BBE DDADMIN BB BUTI UE BP BE EPI 


= 
moO 
~“ 
uw 
oO 
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7 

f § CK_NBDS, SML INT]: 

755 CLASS_$_DESC foscsw LENGTH] = ,SRC_INFO cs LEN); 

7 6 CLASS-S-DESC_CDSCS$A-POINTER] = .SRC_INFO CS POINTER); 

7 STATUS = OTSSCVT_T_A (CLASS S$ DESC, TEMP_BUF1, 0, -.SCALE, 

7 a (K_IGN_BLKS OR"K_ENB UNDE RF L Ow OR K_IGN_TABS OR K_ENB.SCALE)); 

7 IF NOT~.STATUS THEN SIGNAL (DBGS$_INVNUMSTR, 1, .DBGSGC_OPCODE_NAME); 


: This is a HACK for scaled binary. If the destination is Scaled 


. DADAM 


PA ENO DO NOU EU OOO9 NOU 


$ 4 

$ 4 

3 & 

3 4 

3 4 

3 : 

; 762 4 ! Binary we will leave the value as a H_Float so that we can 

; 18? 2 } do the convert to Scaled Binary by hand. The algorithm follows: 
3 765 4 ! This is the algorithm for the code in the particular case below: 
3 7 4 ! 1) Get the sign. 

: 767 & ! 2) Get the scale of the H_Float. 

3 768 4 ! 3) Check if an overflow will occur. An underflow is 

3 769 4 ‘ acceptable and will be truncated automatically. 

3 770 & ! 4) Move the most significant H_Float fractional bits 

3 771 & ' into the yenpor ery destination. 

: 772 4 : (Note: this includes the redundant most significant 

3 773 4 ‘ fraction bit. 

; 774 4 ' 5) Alter the destination to the correct scale. 

3 775 4 ! §) This is an absolute value so correct for the sign. 

3 ; a ? } ) Move the result into the final destination. 

: 778 4&4 ! wgewerereneneenere HACK - BAB Dec. 1983 eeeeeenanaennanerene 

: 71 779 & ! 

3 i; 790 : if NOT .DESTINATION COSC$V_FL_BINSCALE] 

: 3674 782 4 IF .CVT_ROUND_FLAG 

3 75 783 4 

3 th ree 2 CVTRHL (TEMP_BUF1, TEMP_BUF 2) 

3 143 8 ? CVTHL (TEMP_BUF1, TEMP_BUF2); 

: 3680 788 4 CASE .DESTINATION CDSC$B_DTYPE] FROM DSCSK_DTYPE_V TO DSCSK_DTYPE_SvU OF 
: 3681 789 4 SET 

; 683 790 4 

: 368 791 4 CDSC$K_DTYPE_BuU): 
; 368 79 BEGIN 
; 3685 79 

3: 3686 794 ! If the target is not a binary scale, then just move the 
3 368 ry? : converted value in. 

: 689 139 IF NOT .DESTINATION COSC$V_FL_BINSCALEJ 

3; 3690 798 THEN 

3 3691 799 6 BEGIN 

8 +4) 300 ° i -TEMP_BUF2 CLONG_1] GTRU K_LRGST_BU 

> 3694 2 6 SIGNAL (DBGS_LINTOVF, 1, .DBGSGL OPCODE_NAME) ; 

> 3695 ‘ OUTPUT [BYTE_1) = .TEMP_BuFe (BYTE_17; 

3 $96 END 

: 44 5 ELSE 

3 899 09 ! If the sign and the scale of the H_Float are zero, 

3; 3700 808 ' then the value is zero. 
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iF _.INTMED_DATACWORD_1) EQL 0 


~s 
a 


N 
OUTPUTCBYTE_1] = 0 
5 SE 
FERP BUF = 0 
Ss . 
08 SIGN™= .INT b_patacts, 1, 0>; 
INTMED_DATA<15; >= 0; 
FLOAT SCALE = .INTMED_DATACWORD 1) = 16384; 
IF, FCOAT SCALE GTR (7 + .DESTINATIONLDSC$B_SCALEJ) 
_ ge SIONAL (DBGS_LINTOVE, 1, .DBGSGL_OPCODE_NAME 
L 


BEGIN 
TEMP_BUFI<6, 1, 0> = 1; 
TEMP"BUF1<O, 6, O> = .INTMED DATA<26, 6, 0 
FLOAT_SCALE = 7? + .D “SCALE 
WHILE~.FLOAT_SCALE G 


E 
T 
TEMP BUFICLONG_1] = .TEMP_BUFICS_LONG_1] / 2; 
FLOAT_SCALE = [FLOAT_SCALE = 1; 
U 
E 


> 
J'= .FLOAT_SCALE; 


ND; ~ a 
IF .SIGN THEN TEMP_B 


= 0 - _.TEMP_BUF1; 
OUTPUT CBYTE_1] = <T 
END; 


Fi 
MP_BUF1 CS_BYTE_1); 


WN — OC OCONAOVUE WN —"OOONOUS 
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727 5 END; 

728 : END; 

; 3 35 CDSCSK_DTYPE_wu) 

? 1 39 ectin ~ 

7 - 841 ! If the target is not a binary scale, then just move the 
r : Hk } converted value in. 

7 844 if NOT .DESTINATION CDSCS$V_FL_BINSCALE 

7 845 THEN 

7 B46 BEGIN 

739 84 IF .TEMP_BUF2 CLONG_1] GTRU K_LRGST_wU 

740 848 THEN 

741 B49 SIGNAL (DBG$_IINTOVF, 1, .DBGSGL_OPCODE_NAME); 
r 30 OUTPUT CWORD_1] = .TEMP_BUF2 CWORD_117; 

The 5 ELSE 

res 38 

74 54 ! If the sign and the scale of the H_Float are zero, 
es 32 then the value is zero. 

749 3$ if .INTMED_DATACWORD_1) EQL 0 

750 58 HEN 

731 39 gg CUTPUTCWORD_1] = 0 

738 861 BEGIN 

754 86¢ TEMP_BUF1 = 0; 

755 SIGN™= sINTRED_DATAC1S, 1, 0>; 

75 INTMED DATA<15; 1, O> = 0: 

75 5 FLOAT_SCALE = .INfMED_DATACWORD_1) - 16384; 


GCVTOX 1hs3 1986 23:57:30 VAXe11 BLiss-32 vs.0-742 ° 9 
tee tt ek bees Pa te Os a PARR TOR TST nt age 


If «FLOAT SCALE GTR (15 + .DESTINATIONCDSCSB_SCALE) 
Lg SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE NAME) 


sf 


: 7 

: 0 

3 71 f TEMP “pur ics. o> = 1; 

; i TEMP BUF 1<0 Seale > = , INTMED_DATA<18, 14, O>; 

: 737 FLOAT_SCALE = 15 + .DESTINATIONCDSC$B. SCALE] = .FLOAT_SCALE; 
; oh 7 WHILE” =FLOAT _SCALE GTR 0 DO 

: 2 TEMP {BUF ILLON NG_1) = .TEMP BUF 1CS_LONG_1] / 2: 
: f pL on OAT_SCALE = <FLOAT_SCALE = 1; 

; 575 7 If .SIGN THEN TEMP_BUF1 = 0 - .TEMP_BUFI; 

3 aa 7 QuTPUT CwORD_1] = 7TEMP_BUF1 CS_WORB_1); 

; 8 2 g END; 

: 2 END; 

; 885 4 CDSC$K_DTYPE_B): 

; 887 BESIN 

; 888 ! If the target is not a binary scale, then just move the 

: red converted value in. 

; 891 if NOT .DESTINATION COSC$V_FL_BINSCALE] 

; 89 CVTLB (TEMP_BUF2, .OUTPUT) 

: Soe ; LSE 

; 4 ! If the sign and the scale of the H_Float are zero, 

; 44 5 then the value is zero. 

; 899 IF .INTMED_DATACWORD_1) EQL 0 

; 901 OUTPUTCBYTE_1] = 0 

; 90¢ ELSE 

; 903 6 BEGIN 

3 904 6 TEMP_BUF1 = 0; 

3 905 6 SIGN"= .INTMED -DATACIS, . 0; 

; 906 4 INTMED_DATA<15; 1 

; 90 $ FLOAT SCALE = Inf MED SF one 1] - 

3 908 r TF gf COAT. SCALE GTR (7 + DEST IRATIONED SSO. SCALE) 
3 910 6 EL SES IONAL (OBGS_LINTOVF., 1, .DBGSGL_OPCODE_NAME) 

; af § BEGIN 

: 913 7 TEMP_BUF1<6, 1, >: 1; 

: 914 7 TEMP “BUFI<O. 6 .INTMED_DAT A<26 

: 915 7 FLOAT_SCALE = ? + * DEST NATIONCDSC$B__ “505, 23° - .FLOAT_SCALE; 
3 916 ? WHILE”. FLOAT. SCALE GTR 0 DO 

; 918 TEMP BUF ICLONG_ 1) = TEMP BUF ICS _LONG_1) / 2; 
; 919 FLOAT. SCALE = <FLOAT one 

; 921 7 IF .SIGN T THEN TEMP ~Bur = TEMP_B 

; 331 ? birbaT CBYTE 1dee THEM aur? CS BYTE tds: 


Q 
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1 END; 

1 END; 

: END; 

1 CDSCSK_DTYPE_w2: 
BEGIN 


! If the target is ~g a binary scale, then just move the 
; converted value in 


iF aoe -DESTINATION COSCSV_FL_BINSCALE) 
CVTLW (TEMP_BUF2, .OUTPUT) 
LSE 
! If the sign and the scale of the H_Float are zero, 
then the value is zero. 
if .INTMED_DATACWORD_1] EQL 0 
. OUTPUTCWORD_1] = 0 


PASM @ODSNAVNLSWN —"OOONOu 


=o Lo oS ot So Reta aA A Bt BE eo 


: 

: é 

; . EGI 

3 3838 6 TEMP BUF = 

; 3839 6 SIGN™ UF Tntacé -DATACIS, , 0; 

: 3840 é INTMED_DATACI5; 

3 3841 g FLOAT SCALE = *sutnee i ficson 1) 

: Be IF .FCOAT_SCALE GTR (T DESTINATIONS oecéB., SCALE) 
: Bad 6 oe ates 1, .DBGSGL_OPCODE_NAME) 

: 38 6 5 BEGIN 

3; 3 ? TEMP =BUF ICIS, LB =1; 

; 3848 7 TEMP Bue <O = ,INTMED_DATA<18, 14, 

> 3849 7 FLOAT_S .DESTINAT! TON CoScsB. SCALE) -FLOAT_SCALE; 
; 850 ? WHILE sFtbaT. "JE: 6TR 0 DO 

; + TEMP BUFICLONG_1] = . TEMP BUFICS_LONG_1] / 2; 
; 3853 FLOA AT_SCA TFLOAT_SCALE = 1; 

: 3855 7 IF .SIGN THEN, TEMP_BUF1 = 0 = .TEMP_BUF1; 

; B36 ? QurPuT CwORD_1} = TTEMP_BUF1 CS_WORD_1); 

B38 $ END; END; 

r4 ¥4; 4 - 

; 3861 4 CDSC$K_DTYPE_L): 

: 3868 370 BEGIN ~ 

: 386 37s ! If the target is not a binary scale, then just move the 

: 3865 a7 converted value in. 

: 386 975 iF NOT .DESTINATION COSCSV_FL_BINSCALE) 

; 865 379 OUTPUT CLONG_1) = .TEMP_BUF2 [S_LONG_1) 
OB 29 
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! If the sign and the scale of the D_Float are zero, 
! then the value is zero. 


' 

' 

! 

if ors BUF ICWORD_1] EQL 0 
OUTPUTCLONG_1] = 0 


ELSE 
BEGIN 
TEMP_BUF2 = 
SIGN"= , TEMP % a 1. 0>; 
TEMP BUF I<15; 
FLOAT SCALE aur icword.1) - 16384 4: 
IF «FCOAT. ay err (31 + DESTINATION 0§c¢$B_SCALE)) 
a ar 1, .DBGSGL_OPCODE_NAME) 
EGI 
TEMP_BUF2<30, 
TEMPBUF 2<14, 16, wy », * TEMP _BUF1<16, 16, 2? 
TEMP"BUFO<0, 14, 0> = .(TEMP~BUF144)<18 "0>; 
FLOAT_SCALE = 31 + .DESTI NATTONCDSCSB_ Stale - ‘FLOAT_SCALE; 
WHILE” .FLOAT_SCALE GTR O D 
TEMP_BUF 2CLONG_ 1s .TEMP_BUF2CS_LONG_1] / 2; 
FLOA AT_SCALE = [FLOA OAT_S CALE = 1; 
IF .SIGN THEN TEMP BUF 2 = 0 = . TEMP BUF2; 
quseut CLONG_1] = {TEMP_BUF 2 cs _LONG_1]; 
END; 
END; 


CDSCeR prvre_v. DSCSK_DTYPE_SV, DSCSK_DTYPE_VU, DSCSK_DTYPE_SVU, DSCSK_DTYPE_TF): 


OUTPUT: REF BITVECTORCK OUTPUT BUFFER_LENGTH * $). 
INTMED_DATA: BITVECTORCR_INTMED_DATA_CENGTH * 8 


INCR By 0 TO .DST_INFOCD_LEN] = 1 DO 
OUTPUTC.1] = .INTMED_DATAC.1); 
END; 
END; 
CINRANGE, OUTRA NGE): 


SDBG_ERROR (° DBGCVTDX\DBGSCVT DX_DX: nbds_smlint*); 
TES; For NBDS_SMLIAT 
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; 3921 4 

: 39 ‘ 4 § CK_NBDS_LRGINT): 

; 3 3 4 9 CASE. -DESTINATION COSCSB_DTYPE] FROM DSCSK_DTYPE_LU TO DSCSK_DTYPE_O OF 

: 3925 4 

: 39 § 4 i CDSCSK_DTYPE_LU}: 

: 39 4 4 BEGIN 

: 39 4035 4 CLASS $_ DESC poscsw_t LENGTH] = .SRC_INFO cs LEN); 

: 39 4 6 4 CLASS-S-DESC CDSCSA-POINTER] = .SRC_INFO CS POINTER] 

: 39 40 4 STATUS = OTSSCVT_T_B (CLASS $_DESC, TEMP_BUF1, 0, - 

: 3931 4 ; 4 (K_IGN_BLKS ORK_ENB UNBERF LOW OR K_IGN_TABS OR- ALE)); 

: 39 3 405 4 IF NOT~.STATUS THEN SIGNAL (DBG$_INVNUMSTR, ~1 “Sete ENS SCA NAME) 

: 39 4040 4 IF .TEMP_BUF1<15, 1, 0> THEN SIGNAL (DBG$ CVINEG ~ DBGSGC aPcobe NAME); 

: 39 4041 4 If CMPD TTEMP_BUF1, .LRGST D_LU) GTR 0 THEN SIGNAL topes: LINTOVF, 1, .DBGSGL. * OPCODE _NAME | 

3; 3935 4 : 4 BICPSW (ZREF TK_SET_ARITHMETIC_TRAP)); 

: 39 4 4 IF _.CVT_ROUND “FRG 

: 39 4044 4 THE | 

: 39 4045 4 CVTRDL (TEMP_BUF1, .OUTPUT) | 

: 3939 4046 4 ELS 

; 3940 4047 4 CVTDL (TEMP_BUF1, .OUTPUT); | 
941 4048 4 

: 94¢ 4049 4 BISPSW (ZREF (K_SET_ARITHMETIC_TRAP)); 

Bl Bey “ 

; 945 405¢ ; CDSC$K DTYPE _Q, DSCSK_DTYPE_Qu]: ' M003 | 

; 9c9 4054 4 CLASS_S _DESC COSC LENGTH] = .SRC_INFO CS_LEN); 

: 3948 4055 4 CLASS"S PESC DSCSAL POINTER] = .SRC_INFO CS_ POINTER); | 

: 3949 4056 4 STATUS = OTSSCVT_T_A (CLASS S “DESC, one 8 BUF1 ip 0. SCALE, 

: 3950 4057 4 (K_IGN_BLKS OR"K_ENB_UNDERFLOW Ke TGNT $ OR K ENB ’S ALE)) 

: 3951 4058 4 IF NOT” Or ATuS THEN SIGNAL (DBGS. TNUNUMSTRN 1, nes BCSGC” OPCObE tNAME) ; 

; 93¢ 4059 4 cvTRHG (TEMP_BUF1, .OUTP 

Bo Beg a 

: 3955 406 CDSCS$K_DTYPE_O): ' A004 

> 3956 4 BEGIN i A004 

; 4064 4 LOCAL i A004 

; 4 Sign. flag : INITIAL( 0 ), i A004 

3 ? Current _character; ' A004 

; 4 MAP OUTPUT : REF VECTOR(4); ' A004 

: 4 1+¢ 1 A004 

: 4 i Init the octaword ! none 

; 4 ie i A004 

: 4 OUTPUT - 0; i A004 

: 4 OUTPUT = 0: i A004 | 

; 4 OUTPUT = 0: i A004 

: 4 OUTPUTE 0 } = CHSRCHAR( .SRC_INFOLC S_POINTER ] ) = %C°O"; ! A004 

: 4 lee ' A004 | 

: ¢ it Test for bad characters “ r 

; é ifs .OUTPUTE 0] LSS O OR .OUTPUTC 0 2 GTR 9 Ad 4 | 

: 4 IF .OUTPUTC 0 J EQL XC°-" = 2C'0" i A004 

: 4 THEN i A004 
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-1984 57:30 AX-11 Bliss-32 V4.0- 

=1382 3 16:44 DEBUG. SRC IDBGCVTDX.B32s1 (27) | 
3 378 4085 BEGIN ' A004 
3; 39 4 SRC_INFOL S_POINTER J] = .SRC jncoe S_POINTER ] + 1; ! A004 
3; 39 4 SRC_ INFO 5-tEN ; = ,SRC_INFOL S$ pe J-1; ' A004 
: 3981 4 8 OUTPUTE = CHSRCHAR( TSRC_INFOL S_POINTER ]) = ! A004 | 
3; 39 ; 40 4C'0'; ' A004 
; 39 4090 Sign.flag = 1; : Apbe 
3; 39 4091 N ' A004 
; 3985 4 5 4 ELSE ' A004 
H Bee 4095 4 SIGNAL( DBGS_INVDIGDEC, 2, 1, .SRC_INFOCS_POINTER]);! A004 
; 39 4094 4 | 
3989 tose i*e h charact i AG | 
3 ! For each character 
3; 3990 rt 4 ! out tety by ' A004 
3; 3991 4098 4 } add it to the low order long word ' A004 
3; 399 4099 4 len ' A004 
3; 399 £139 4 INCR Current char_num FROM 1 TO .SRC_INFO CS_LEN] - 1 DO ' A004 
3; 3994 4101 BEGIN ' A004 
3; 3995 2136 DBGSCVT_SCALE_OU_UP_BY 10, aa -OUTPUT ) ' A004 
> 3996 419 Current—character ="CHSRCRAR( .SRC "INFOt $ -POINTER 7+ § A004 | 
3; 3997 4104 5§ fae ed _char_num ) = ' A004 
3; 3998 4105 : 2C°O*: ' a004 
3; 3999 £108 
3; 4000 4107 5 '++ ' A004 
: 4001 4108 5 ! Test for bad characters ' A004 
; 400 4109 5 leo ' A004 
3; 400 4110 5§ IF (.Current_character LSS 0) OR ' A004 
3; 4004 4111 6 . Current_character GTR 9) ' A004 
; 4005 216 2 ' A004 
3; 4 411 NSIGNAL( DBGS_INVDIGDEC, 2, 1, .SRC_INFOCS_POINTER] +! A004 
: rts 4 eit8 : -Current_char_num ); ! A004 
3; 4009 4116 5 OUTPUTC 0 J = .OUTPUTC 0 ] + .Current_character; ' A004 
; 401 4117 4 END; ' A004 
; 4011 4118 4 
3; 401 4119 4 '+¢ 
3 401 4120 4 i When there was a negative we subtract from 0 | 
3 4014 tis) 4 ice 
3 4015 41 § 4 IF .Sign_flag ' A004 
$ red 4123 4 THEN ' A004 
3; 401 4124 : BEGIN ' A004 
3: 4018 4125 CAL ' A004 
; 4019 4126 5 Octaword_zero : VECTOR(4]; ' ad0d4 
: 4020 4127 
3 4021 41 8 Octaword_zero = 0; ' A004 
: 4022 41 Octaword_zero = 0; ' A004 
3; 4023 4130 : Octaword_zero = 0; ' A004 
: 3 r ot 1 Octaword_zerol 0 Jj = 0; ' A004 
: iss a ; SUBM( 4, .OUTPUT, Octaword_zero, .OUTPUT ); ' A004 | 
: 4028 4135 4 END; ' A004 | 
3 4029 4136 4 | 
; 40 41 END; ' A004 
3; 4031 4138 | 
: 40 ¢ 4139 CINRANGE, OUTRANGE): 
; 403 4140 $DBG_ ERROR (‘ DBGCVTDX\DBGSCVT DX_DX: nbds_irgint'); 
3 4034 4141 ES; 'For “NBDS_ CRGIAT 
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Chas LRGFLTCMPLXJ: 


EGIN 
CLASS_S_DESC CDSCSW_LENGTH] = .SRC_INFO CS_LEN); 
CLASS_S-DESC agen POINTER] = .SRC_INFO ts POINTER]; 
CASE DESTINATION COSCSB_DTYPE] FROM DSCSK_BTYPE_G TO DSCSK_DTYPE_HC OF 
COSCSK DIYPE.G, DSCSK_DTYPE_GC): 
STATUS = OTSSCVT_T_G (CLASS_S_DESC, TEMP_BUF1, 0, -.SCALE, 
(K_IGN_BLKS OR™K_ENB NBERFL OW OR K_TGN_TABS OR K_ENB SCALE)); 
IF _NOT~.STATUS THEN SIGNAL (DBG$ INVNUMSTR,-1, .DBGSGC_OPCODE_NAME); 
OUTPUT CLONG_1]) = .TEMP_BUF1 LONG 1: 
OUTPUT CLONG-2) = .TEMP-BUF1 CLONG 2); 
IF DESTINATIONCOSCS8_DTYPE) EQL DSCSK_DTYPE_GC 
BEGIN 


} Fill in imaginary part with 0; 


OUTPUTCLONG_3] = 0; 
OUTPUT LONG-4) = 0; 


END; 
COSCSK_DTYPE_H, DSCSK_DTYPE_HC): 
BEGIN 


STATUS = OTSSCVT_T_H (CLASS_S_DESC, TEMP_BUF1, 0, -.SCALE, 
(K_IGN_BLKS OR"K_ENB_UNDERFLOW OR K_IGN_TABS OR K ENB SCALE)); 

IF NOT~.STATUS THEN SIGNAL (DBG$_INVNUMSTR, 1, .DBGSGC_OPCODE_NAME); 

CHSMOVE (16, TEMP_BUF1, .OUTPUT): 

If :DESTINATIONCDSCSB_5TYPE] EQL’ DSC$K_DTYPE_HC 


SNS NNSA AAA AAA AAA MMIII BE 


Fill in imaginary part with 0. 
a CHSFILL (0, 16, .OUTPUT+16); 


C0 C9 COCO “Y 


CINRANGE, OUTRANGE): 
SDBG_ERROR ('DBGCVTDX\DBGSCVT_DX_DX: nbds_lrgfltcmplx"); 
ep. 1E5! 'ForNBDS_LRGFCTCAPLX 
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voe-000 1278601984 $3330 i20 DEBUG. SRCIDBGCVTDK.B325 1 (29) | 
: 4083 1188 
: 40 41 CK_NBDS_NBDS): 
; 4085 4190 SELECTONE .DESTINATION COSCS$B_DTYPE) OF 
: oe a 
; 4088 4198 ; CDSC$K DTYPE_BU, DSCSK_DTYPE_T, DSCSK_DTYPE_VT, .SCSK_DTYPE_AC, DSC$K_DTYPE_AZ): 
: 4090 4195 4 IF .SCALE NEQ 0 | 
3 4091 4196 4 THEN 
3 409 419 3 BEGIN 
: 409 4198 CLASS_S_DESC FSC$W LENGTH) = .SRC_INFO cs LEN]; 
3 4094 4199 CLASS-S-DESC_CDSCSA-POINTER] = .SRC_INFO CS_POINTER); 
3 4095 4200 STATUS 2 OTSSCVT_T_A (CLASS S_DESC, TEMP_BUF1, 0, -.SCALE, | 
; 4096 4201 (K_IGN_BLKS OR"K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE)); 
3; 409 4 Og 2 IF STATUS 
; 4098 420 THEN | 
3 4 4204 6 BEGIN 
; 4100 4205 6 CLASS_S_DESC COSCS$W_LENGTH] = K_TEMP_BUF_LENGTH; 
> 4101 4206 6 CLASS-S_DESC COSCS$A-POINTER] = TEMP_SUF 2; 
; 4108 4207 6 IF .DST-INFO CO_LENT = 9 LEQ 0 
3; 410 4208 6 THEN 
: 4104 4209 6 DIGITS_IN_FRACT = 33 
3 4105 4210 6 LSE 
3 4106 agi] 6 DIGITS_IN FRACT = MIN (33, .DST_INFO CD_LEN] - 9); | 
13; 4107 4 1 6 STATUS = FORSCVT H TE (TEMP BUF1, CLASS S DESC, -DIGITS_IN_FRACT, 0, 0, 4); 
: 4108 4213 6 IF NOT .STATUS TRER $DBG_ERROR ('DBGCVTBX\DBGSCVT_DX_DX? error in h-to-te conve 
3 4109 4214 6 BUF OFFSET = CHSFIND NOTCH (K_TEMP BUF LENGTH, TEMP_BUF2, %C' ') = TEMP_BUF2; | 
3 4110 4215 6 FINAL_LEN = K_TEMP_BOF_LENGTH = .BUF_OFFSET; 
; aint 4216 6 OUTPUT_STR_LEN = .FINAC_LEN; | 
; a118 4218 6 SELECTONE .DESTINATIONCDSCS$B_DTYPE] OF 
7 4114 4219 6 
7 4115 4220 6 COSCS$K_DTYPE_AC): 
3 4116 4221 7 BEGIN 
3 4117 4 3¢ 7 MAP | 
3 4118 4223 7 OUTPUT: REF VECTORC, BYTE); 
3 4119 422k 7 CLASS_S_DESCCDSC$W_LENGTH] = .FINAL_LEN; 
3 $120 4225 7 CLASS-S-DESCCDSCSA_POINTER] = OUTPUTL1]: | 
3 4121 4226 7 STATUS = LIBSSCOPY-R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, CLASS SD 
: $is¢ 4227 7 IF .STATUS EQL LIBS_STRTRU THEN SIGNAL (DBGS$_ISTRTRU, T, .DBGS$GL_OPCODE_| 
3 412 4228 7 IF NOT STATUS THEN SIGNAL (. STATUS); 
> 4126 4g¢9 7 OUTPUTCO) = .FINAL_LEN; | 
: 4125 4230 6 END; 
3; 41 § 4 HH 6 
3 41 4 é g CDSCSK_DTYPE_AZ): 
> 4128 4 GIN 
; 4129 4234 7 p 
3 4130 4235 7 OUTPUT: REF VECTORC, BYTE); 
> 4131 4 36 7 CLASS_S_DESCEDSC$w_LENGTH] = .FINAL . N; | 
: 4132 4 3 7 CLASS-S"DESCCDSCSA_POINTERJ = OUTPUT(O): 
> 413 4238 7 STATUS = LIBSSCOPY-R_DX6 (.FINAL_LEN, TEMP _BUF2 + .BUF_OFFSET, CLASS SD. 
3 4134 4239 7 -STATUS EQL LIBS_STRTRU THEN SIGNAL (DBG$_ISTRTRU, T, .DBG$GL_OPCODE__ 
: 4135 4240 7 F NOT .STATUS THEN S1GNA (STATUS); 
: 4136 4241 7 OUTPUTC.FINAL_LEN + 1) = 0; 
: 4137 4 4¢ 6 ND; 
: rt 4245 6 
: 4139 4246 6 COTHERWISE): 
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TES; 'End of the main CASE statement. 


10 
DBGCVTDX ib-se -1984 23:57:30 AX-11 Bliss-32 V4.0-742 Page 97 
yeni 12-Sep-19 4 93:37:70 DEBUG. SRCIDBGCVTDK.B32¢1 . (29) | 
H 137 IF NOT .STATUS THEN SIGNAL (.STATUS); 
3 41 DESTINATIONCOSCSW begin = ,OUTPUT_STR[O); 
; 1 nite (.OUTPUT_STRE J, OUTPUT_STRE As .DESTINATIONCDSC$A_POINTER)); 
; COTHERWISE]: 
4 DBG_ERROR ("DBGCVTDX\DBGSCVT_DX_DX: nbds_nbds'); 
TES; !For”NBDS_NBDS 


! If the destination class is unaligned, then the output will be in a temporary buffer. 


Copy from the temporary buffer to: . (destination pointer + number of bits to be offset). 
if, ,DESTINATIONCDSCSB_CLASS] EQL DSCS$K_CLASS_UBS 

BEGIN 

SRC_POS = 0; 

DST-POS = .DESTINATIONCDSCSL_POS); 

CASE :DESTINATIONCDSCSB_DTYPE] FROM K_MIN_DTYPE_STA TO K_MAX_DTYPE_STA OF 


DSCSK _DTYPE_V, DSCSK_DTYPE_SV, DSCSK_DTYPE_VU, DSCSK_DTYPE_SVU, DSCSK_DTYPE_TF): 


MNRNMNVNNNNNN 2 2 3 2 2 2 OS SH OCOCOOOCOOOCOCO 


ye ay ot ot ot at nt ot ot et at at et tet et ak take -khhh ak h e  h ek h  h 
yo? oy oY oY oY ot ot at ot at ot ot ot et et tt th ee eh ek eh hk ke eh kk ek at ek ek kk et ek tt et 


PRPRPPINIIWIE. BBB BUA AAAUINE FSU AAO MINUS BE BE BINA 


; : 3 DESTINATION. PTR: REF BITVECTOR, 

3: 42 3 OUTPUT: REF BITVECTOR; 

; 3 3 INCR 1 FROM 1 TO .DESTINATIONCDSCSW_LENGTH) DO 

; 42 33 DESTINATION. PTRL.DST_POS) = .OUTPUTC.SRC_POS); 
3 42 33 DST_POS = .OST_POS +71; 

: 42 33 SRC-POS = .SRC~POS + 1: 

+ m=: 

; 238 33 CINRANGE): 

3 4234 3 BEGIN 

3 4235 34 INCR 1 FROM 1 TO .DESTINATIONCDSC$W_LENGTH] DO 

; $35 34 (DESTINATION PTR)<.DST_POS, 8> = .(.OUTPUT)<.SRC_POS, 8>; 

3 338 34 DST_POS = .DST_POS + 8; 

> 4239 SRC“POS = .SRC"POS + 8: 

; 4240 $ END; 

: 41 4 END; 

; rk 38 COUTRANGE): 

3 4264 49 $DBG_ERROR ("DBGCVTDX\DBGSCVT_DX_DX: invalid dtype'); 

Be ! ew" 

: <3 3 , 
3 vy e? END; ! End the ELSE part of the Absolute Date Time IF 
; 20 2? If output string length is requested then supply it. 

; 2 $57 if ACTUALCOUNT() GTR 2 THEN (.QUTLEN)<O, 16, 0> = .OUTPUT_STR_LEN; 


10 
GCVTDX 15-Sep- 9 :57:3 AX-11 Bliss-32 V4.0-742 P 98 
voes000 14-Sep baat 7 13: 216:4 DEBUG. SRCJDBGCVTDX.B832; 1 208 (29), 


3: 42546 4359 1 END; ! End of routine DBGSCVT_DX_Dx. 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


OAD2 -—BLKB 2 
00 00 SC 29 67 49 29 Of nee P.ADX: .ASCII <4>\)1g)\<92><0><0> ; 
OOOFFOO FFFFSO7F ADC P.ADY: .LONG “XFFFFSO7F, *xOOO0FFOO ‘ 
00000000 00000000 OOOOFFFE FFFF4020 OOAE4 P.ADZ: .LONG - 3 
O0g0n vn” *XOOOOFFFE, *x00000000, *x0000- ; 
00 00 00 OC OOAF4 P.AEA: .ASCII ><0><0><0> ; 
43 $ 47 $6 44 5C 2 44 54 26 43 9 4 44 3 pare P.AEB: .ASCII CGDBGCVIDXA<92>\DBGSCVT _DX_DX: invalid \ : 
61 76 6€ 69 20 20 3A 58 44 SF 5B 446 SF 28 70 p00! F 
69 72 63 73 65 64 20 6€ 69 20 65 8 *3 re 7 pets ASCII \dtype in descriptor\ : 
43 246 47 42 464 SC 8 44 54 56 43 & 42 44 4 O8¢0 P.AEC: .ASCII \4DBGCVTDX\<92>\DBGSCVT_DX_DX: invalid \ : 
61 76 6E 69 20 20 3A 58 46 SF 58 46 SF 54 56 O00B35C 3 
$9 64 69 6 0848 3 
69 72 63 73 65 64 20 6€ 69 20 73 if et 4 § pase -ASCII \class in descriptor\ : 
43 24 47 & 44 5C 58 44 564 S56 43 & 42 44 ; Ones P.AED: .ASCII \8DBGCVTDX\<92>\DBGSCVT_DX_DX: invalid \ $ 
61 76 6€ 69 20 20 3A 58 44 SF 5B 44 2 2 7 oe 3 
6D 6F 63 20 65 70 79 He os 4 o * e ° i ae} eASCII \class-dtype combination\ 3 
43 246 47 42 464 SC 58 44 54 ? 43 47 $5 44 ; OB9B P.AEE: .ASCII \9DBGCVTDX\<92>\DBGSCVT_DX_DX: invalid \ $ 
61 76 6E 69 20 20 3A 58 44 SF 58 44 SF 54 56 OOBAA 3 
0 64 69 6C 00889 3 
74 73 20 65 74 79 0 63 69 72 65 6D 75 $f OBBD ASCII \numeric byte string data\ 3 
61 74 61 64 20 67 6 69 pect y 3 
43 24 47 & 44 5C 58 44 4 56 4 47 4 44 6 QOBDS P.AEF: .ASCII \&DBGCVTDX\<92>\DBGSCVT_DX_DX: smlint_s\ $ 
69 6C 6D 73 20 20 3A 58 46 SF 58 46 SF 54 56 OOBES 3 
73 SF 676 COE te 3 
74 6€ 6y¥ oC 6D oer ASCII \mlint\ 3 
43 24 47 $¢ 44 5C 58 44 54 56 43 4 42 44 6 BFC P.AEG eASCII \GDBGCVTDX\<92>\DBGSCVT_DX_DX: smlint_L\ 3 
69 6C 6D 73 20 20 3A 58 44 SF 58 44 SF 54 56 O0COB 3 
6C SF 74 § OCIA : 3 
74 6€ 69 67 0C1 ASCII begtay\ F 3 
43 246 47 42 46 SC 58 44 54 56 43 4 42 44 Bcg P.AEH eASCII \@DBGCVTDX\<92>\DBGSCVT_DX_DX: Urgint_l\ : 
69 67 72 6C 20 20 3A 58 44 SF 58 44 SF 54 56 O0C 3 
6C SF 74 $5 bead 3 
74 6€ 69 67 C45 ASCII \rgint\ 3 

OC4A -BLKB 2 
000000: 0004100 OOC4C P.AEI: .LONG %x00004100, “x0 000008 3 
41 Tr: P.AEJ: .LONG %*x00004100, *x00000000 3 
4 C5C P.AEK: .LONG “X 4220, “Xx 464 3 
4 C64 P.AEL: .LONG “°X 4220, “xX 000 : 
coe P.AEM: .LONG “X 8 4100, “Xx 88 3 
41 C74 P.AEN: .LONG “X 4100, °x 3 
4 C7C P.AEO: .LONG “xX 4220, “Xx 0 3 
4 C84 P.AEP: .LONG “xX 4220, *X : 
a bc C P.AEQ: .LONG “*X 4100, “Xx $ 
41 C94 P.AER: .LONG “Xx 4100, “x 3 
41 OC9C P.AES: LONG “x 4100, “x 000 3 


0 
15-Se 4 23:57:3 AX-11 Bliss-32 V4.0-742 
yang} 88s F3i7bi2 DEBUG. macumesei “B32: 1 
4 CAG P.AET: .LONG  *x00006100, 
é CAC PLAEU: LONG  °x00004220, 
é (BL PLAEV: LONG  *x00006990, 
aa mm 
43 26 47 42 46 8 66 54 56 43 47 42 44 C P.AEY: <A ok >\ T : 
$3 ef Se 36 3 3 if 3 : o4 i $e §8 06 E SCII \*DBGCVTD 9 DBGSCVT_DX_DX: smlint_s\ 
78 70 6D 63 74 6C 66 6C 6D OOCE LASCIT  \mLfLtemptx\ 
43 26 467 42 66 5 si 44 34 56 ts 25 8 of : crs P.AEZ: “ASCII \*DBGCVTDX\<92>\DBGSCVT_DX_DX: Lrgi 
43 24 47 42 44 5 58 be 54 56 43 uo so E2 Il \+De6C 2>\DBGSCVT_DX_DX: Lrgint_s\ 
43 246 47 & 44 ze Si ? 4 56 I gf 66 of i, th P.AFA “ASCHT 345 1 Dx_DxX fl \ 
ge &C bo 8 36 36 fa Se ae Se oo SF 34 56 BE . . ests’ Temmctaiot a 
TE St 79 8B GE Te $e Se ge op TE HE TE GE HF Gooch wasctt otecamttttemtn a 
cf 63 65 64 30 30 8A 88 ae SF SB ue SF 54 ss Ope : . inte. a 
43 246 47 42 46 SC 8 44 ze gf 79 6p e§ be gf Q0077 Age \yegnet Bx\<92>\p86SCVT _DX_DX bd u\ 
73 oo oF 36 36 fe Sk Oak ee Se i i 54 56 see psa, ee 
78 6C 70 6D 638 74 6C 66 OODAO \fltemptx\ 
00000000. 00050000 90000000. 00006002 OODAS P.AFD: pene 
=x99004002, *x00000000, “x00000000, “x0000- 
00000000 00000000 00000000 00004002 00088 P.AFE: ; 
“x99004002, “x00000000, *x00000000, *x0000~ 
00000000 00000000 00000000 40004004 000C8 P.aFF: 
“*40004004, *x00000000, *x00000000, ~x0000- 
00000000 00000000 00000000 40004004 00008 P.AFG: : 
¥40006004, *x00000000, *x00000000, *x0000- 
00000000 00000000 00000000 00004002 O0DE8 P.AFH: : 
¥90004002, *x00000000, *¥00000000, “x0000- 
00000000 00000000 00000000 00004002 O0DF8 P.AFI: ; 
“90004002, *X00000000, *x00000000, “x0000- 
00000000 00000000 00000000 40004004 0008 P.AFU: ; 
=¥40004004, *x00000000, *¥00000000, *x0000- 
00000000 00000000 00000000 40004004 00E18 P.AFK: : 
“x40004004, *x00000000, “x00000000, *x0000- 
00000000 00000000 00000000 00004002 00E28 P.AFL: : 
=*90004002, *x00000000, “x00000000, *x0000- 
00000000 00000000 00000000 00004002 00E38 P.AFM: : 
99004002, *x00000000, *x00000000, *x0000- 
00000000 00000000 00004002 00E48 P.AFN: : 
*700004002, *x00000000, *x00000000, *x0000- 


pert TOX 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


00004002 
40004004 
40004004 
40004004 
40004004 
00004002 
00004002 
00004002 
00004002 
40004004 
40004004 
40004004 
40004004 
00004002 
00004002 
00004002 
00004002 
40004004 


40004004 


18-50-1984 ; 
14-Sep-1984 

00E58 P.AFO: 
OOE68 P.AFP: 
Q00E78 P.AFQ: 
OOE88 P.AFR: 
OOE98 P.AFS: 
OOEAS P.AFT: 
OOEBS P.AFU: 
OOECS P.AFV: 
OOEDS P.AFW: 
OOEES P.AFX: 
OOEF8 P.AFY: 
OOFO8 P.AFZ: 
OOF 18 P.AGA: 
OOF 28 P.AGB: 
OOF 38 P.AGC: 
OOF 48 P.AGD: 
OOF 58 P.AGE: 
OOF 68 P.AGF: 


OOF 78 P.AGG: 


- LONG 


- LONG 


- LONG 


- LONG 


«LONG 


- LONG 


- LONG 


«LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


:57:30 
16:44 


0000 
Pt dae 


“¥40004004., 
000 
4%40004004, 
0000 
“140004004, 
000 
*%40004004, 
0000 
“190004002, 
000 
*x00004002, 
0000 
*%00004002, 
0000 
*700004002, 
0000 
*%40004004, 
0000 
*%40004004, 
0000 
=%40006004, 
0000 
*%40004004, 
0000 
=700004002, 
0000 
=%00004002, 
0000 
*700004002, 
0000 
=700004002, 
0000 
*X40004004 


000 
“%40004004, 


AX-11 BL 
DEBUG. SR 


“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“”00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


igs-32 v4.0-74 
cSbactwYpi. 052: 


“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


Page 100 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


(29) 


acu 


00000000 00000000 


00000000 00000000 


8 44 54 
et ee 
78 70 6D 63 
35 si bh 8 56 

A 58 44 5F 
78 si 70 6D 56 
5 44 54 56 
rs A 58 44 5F 
A) f 66 67 72 
5¢ 44 54 ee 
20 SA 58 44 «SF 
7 6C 66 67 72 
5¢ 85 44 54 56 
20 SA 58 44 «SF 

78 6C 

5C 58 44 54 56 
20 SA 58 44 SF 
5C 58 44 54 56 
20 SA 58 44 SF 
5C 58 44 54 36 
20 SA 58 44 SF 
5C¢ 3 44 54 26 
A 58 464 SF 


00000000 40004004 


00000000 40004004 


Lugs s 
6C SF 74 
7% 6C 66 67 
43 47 42 44 
aa Hi 4 
6C SF 74 
Bh 8 f 
$3 rh 5F 2 36 
a PRE 
435 47 42 44 2 
58 44 SF 54 56 
PH 
6 F 6C 
45 47 42 44 g 
58 44 SE 54 56 
66 67 72 6C 
70 6D 63 74 6C 
0 4 | C 
43 a7 49 as : 
58 44 SF 54 56 
64 SF i 43 
43 47 42 44 26 
58 44 SF 54 56 
63 65 64 
43 47 42 44 26 
58 44 SF 54 56 
73 SF 74 «6€ 
74 6€ 69 6C 4 
43 47 42 44 
58 44 HH 4 56 
64 5F He} ; 
43 47 42 44 
58 44 SF 54 56 
eB RES 
33 ae 3 64 g 
58 44 SE 54 56 
PH 
64 5F 6C 
rh 47 42 44 
58 44 5F 2 ? 
of 8H § 


OOF 88 P.AGH: 


OOF98 P.AGI: 


oF P.AGJ: 


P.AGK: 


SES Sen van eee een 


ew mm) — eee 


SASSER SSwrtwoOS Veorrwukos 
9 
eo 
= 
x 
~ 


IO 

~~" 
vw 
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a 
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a ee ed ed ae ee eed eed eed med md HOOOOOOCOCOCOOCO 


aw fw fe lw lw few lw lolol w lolol olololololololeololololeoleleleleoelololelelololololo!) 


oO 
fo) 
wv 
© 

> 
ao 
ae 


roe 


aa 4 $3: :57:30 AX-11 Bliss-32 V4.0-742 
16:44 DEBUG. SRCID BecvYD %.832;1 

0000 : 
«LONG = ; 

9449004006, “700000000, *x00000000, *x0000- : 
.LONG = : 

540004004, “x00000000, *x00000000, *x0000- : 
«ASCII \+DBGCVTDX\<92>\DBGSCVT_DX_DX: smlint_l\  ; 
eASCII \er fi scapts\ : 
ASCII \+DBGCVTDX\<92>\DBGSCVT_DX_DX: Lrgint_l\ : 
eASCII \e pi scapte’ : 
ASCII \OBBGCVTDX\<92>\DBGSCVT_DX_DX: smlfltcm\ : 
ASCH \plx traf Ltcagl : 
ASCII DBGCVTDX\<9 s\dacscvt _DX_DX: Irgfltcm\ ; 
ASCII Lrafte : 
“ASCII bate Dx\<9 >\dacscvt _DX_DX: dec_lrgf\ : 
<ASCII \Ltemplx\ ; 
—-. if” 
ASCII Qe ee : 
“ASCII ><0> : 
ASCII ACs _DX_DX: smlint_d\ ; 
ASCII \ec\ : 
ASCII \ DBGCVTDX\<92>\DBGSCVT_DX_DX: dec_dec\ ; 
ASCII \@DBGCVTDX\<92>\DBGSCVT_DX_DX: Lrgint.s\ : 
ASCII \mlint\ : 
ASCII \#DBGCVTDX\<92>\DBGSCVT_DX_DX: Lrgint_d\ ; 
ASCII \ec\ : 
ASCII \(DBGCVTDX\<92>\DBGSCVT_DX_DX: smlfltcm\  ; 
.ASCII \plx_dec\ : 
"ASCII. \DBGCVIDX\<92>\DBGSCVT -DX_DX: Lrgfltem\ — ; 
“ASCII \plx dec\ : 
“ASCII \!DBGCVTDX\<92>\DBGSCVT_DX_DX: nbds_dec\ 
ASCII \1DBGCVTDX\<92>\DBGSCVT_DX_DX inconsiste\  : 


63 
63 


69 20 58 44 
66 20 65 6C 


SF 
61 


00000000 00000000 


00000000 00000000 


44 54 
58 44 
LE ef 
44 54 

58 
2H Y 


54 
20 SA 58 44 
63 20 65 7% 


54 
20 SA 58 44 


3a $8 ae 


54 
A 58 44 


eP 
: 


63 
6E 


56 
SF 


00000000 00004002 


VEN WS 
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ow Oo @Bwwm caw 
MVM MUI MHS OMS NOW MV LSOW MN 


Re ty Re ee 
FAA POM A EPMA SWS: F LSWOM OOM AOA 


SSS SSS SV SSSS PPA AMI A AVI NIP NUIANAARIVLSAOAOUIW 
Cooooeneow 
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wv 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


P.AHD: 


P.AHE: 


-LONG 
ASCII 


ASCII 
ASCII 


ASCII 


«ASCII 


ASCII 
ASCII 
-LONG 
-LONG 
- LONG 
- LONG 


10 
w$ep-l9be faitocee — EDtauG. Sac SomecvtDKcasos 


\nt scale factors\ 


Seopone100. sx99900009 


“x90004002, “700000000, *x00000000, *x0000- 


“¥99004002, “x00000000, “x00000000, “x0000- 
\=DBGCVTDX\<92>\DBGSCVT_Dx_DX scale fact\ 


\or on octaword not supported\ 


\BDBGCVTDX\<92>\DBGSCVT_DX_DX binary sca\ 


\le factor on packed not supported\ 


\4DBGCVTDX\<92>\DBGSCVT_DX_Dx: 


\ h-to-te conversion\ 


\SDBGCVTDX\<92>\DBGSCVT_DX_DXx: 


\bds\ 
\SDBGCVTDX\<92>\DBGSCVT_DX_Dx: 


\bds\ 
\!D 


BGCVTDX\<92>\DBGSCVT_DX_Dx: 


2 


eee eee 
>> 
<>< 
oooo 
oooo 
Soo 
oo 


" 


“x 
\+D 


a 


TDX<<92>\DB 


T_DX_DX: 


error in\ 


smlint_n\ 


irgint_n\ 


dec_nbds\ 


smifltcm\ 


6C 
43 24 
6F 72 
72 «65 


43 24 
66 OC 


bh 
20 
4a 
20 
6F 


4a 
20 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


? 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


WWMM NS OMVICWw™MY 


NO 
am 
NAME AIA NOS 


Ssss 


ose 


o AAI MN EO NUE 
Off fOflore 


00004002 


00004002 


00004002 


00004002 


40004004 


40004004 


40004004 


40004004 


00004002 


00004002 


00004002 


00004002 


40004004 


98 f2:i6:4 


118 


tse =| 
12-8887} 


SRESARAES 


wRNMMOOmm 


ON VWOO OFO VOM PWIOLO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PPL LLL ESE 
MNS Swnrn— Oo 


vw 
° 

aoe 
— 
o 


01468 P.AID: 


01478 P.AIE: 


01488 P.AIF: 


01498 P.AIG: 


014A8 P.AIH: 


01488 P.AII: 


014C8 P.ALJ: 


01408 P.AIK: 


O14E8 P.AIL: 


O14F8 P.AIM: 


01508 P.AIN: 


01518 P.AIO: 


Ax-1 


fae 


\sDBGCVTDXK< 


\plx Leging 
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“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


Pee Se Se Se Se Se Se Se Se Ge Se Se Se Seis Se Se Se Se Se Se Se Ge Se Se Se Be Se Se Se Se Se Se Se Be Be Se Se 


00000000 


00000000 


00000000 


25 fk $8 a 


00000000 
00000000 


00000000 


SF 


Souia® oon 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 
00000000 
00000000 
1 | 

antl 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


40004004 
40004004 
40004004 


$ B 
6 


000 A 
00004002 
00004002 
00004002 
40004004 
40004004 
40004004 
40004004 
00004002 
00004002 
00004002 
00004002 
40004004 
40004004 


40004004 


1-20 5-1 
14-Sep-1 
01528 P.AIP: 
01538 P.AlQ: 


01548 P.AIR: 


1 
1 
1 
1 
1 


28 P.AIS: 


84 P.AIT: 
P.AIU: 
P.AIV: 
P.AlW: 
P.AIX: 
P.ALY: 
P.AIZ: 
P.AJA: 
P.AJB: 
P.AJC: 
P.AJD: 
P.AJE: 
P.AJF: 
P.AJG: 


P.AJH: 


Be §2:96i00 


«LONG 


- LONG 


- LONG 


ASCII 


ASCII 
«LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


- LONG 


«LONG 


- LONG 


«LONG 


- LONG 


- LONG 


- LONG 


- LONG 


AX-11 BL 

DEBUG. SR 
*x40006004, *x00000000, 
000 


liss-32 V4.0-74 
hebacev¥oK aso. 


“x00000000, 


Page 39) | 


“x0000- 


*¥40004004 “x00000000, *x00000000, “x0000- 


*¥40004004, “x00000000, *x00000000, “x0000- 


\*DBGCVTDX\<92>\DBGSCVT_DX_Dx: 


\plx_smlint\ 


*x00004002, 
0000 
“700004002, 
0000 
“99004002, 
000 

000 
*%40004004, 
0000 
*%40004004, 
0000 
*%40004004, 
0000 
*%40004004, 
0000 
“700004002, 
0000 
“700004002, 
0000 
“700004002, 
0000 
onngomen?. 
*%40004004, 


0000 
“X40004004 
000 


=%40004004, 


“190004002, 


“x00000000, 


“x00000000, 


“x00000000, “x00000000, 


“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


“x00000000, “x00000000, 


“x00000000, 


“x00000000, 


“x00000000, “x00000000, 


“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


irgfltcm\ 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- ; 


“x0000- 


Se Se Se Se Se Se Se Ge Ge Se Ge Ge Ge Fe Se Fe Ge Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Be Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Fe Fe Se Se Se Se Se Se See Fe Se Se 


acu 
00000000 


43 
66 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 


oF 9 Gt 30 25 R38 US FP 


66008600" 0080000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


ba 


40004004 


Pigg a 


soosboa”® 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


aofcotd 


00004002 
00004002 
00004002 
40004004 
40004004 
40004004 
40004004 
00004002 
00004002 
00004002 
00004002 
40004004 
40004004 
40004004 


40004004 


43 246 47 42 46 SC 58 44 54 56 


43 47 42 44 30 


" 10 
15-Sep-1 
14-Sep-1 


01674 P.AJI: 


P.AJK: 
016CO P.AJL: 
016D0 P.AJM: 
016E0 P.AJN: 
016FO P.AJO: 
01700 P.AJP: 
01710 P.AJQ: 
01720 P.AUR: 
01730 P.AJS: 
01740 P.AJT: 
01750 P.AJU: 
01760 P.AJV: 
01770 P.AJW: 
01780 P.AJX: 
01790 P.AJY: 
O17A0 P.AJZ: 


01780 P.AKA: 


Be f2:46i00 


«LONG 
ASCII 
tong: 
LONG 
~ LONG 
LONG 
LONG 
~ LONG 
~ LONG 
LONG 
-LONG 
- LONG 
~ LONG 
-LONG 
LONG 
LONG 
LONG 
LONG 


ASCII 


0000 


AX-11 BL 
DEBUG. SR 


1gse36 v4. 
CJDBGCVTD 


“¥40004004, “x00000000, *x00000000, “x0000- 


\+DBGCVTDX\<92>\DBGSCVT_DX_DX: 


\plx irgint\ 


“x00004002, 
0000 

+ alate 
000 
“x00004002, 
0000 
*x00004002, 
0000 
“x40004004, 
0000 

ooh ee 
000 
“x40004004, 
0000 
“x40004004, 
0000 
*x00004002, 
0000 
*x00004002, 
0000 
*x00004002, 
0000 

ong oos002. 
000 
“x40004004, 
0000 
“x40004004, 
0000 


*%40004004, 
0000 


“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 
“x00000000, 


“x00000000, 


irgfltcm\ 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“x0000- 


“149004004, “700000000, 
RODBGCVTDX\<92>\DBGSCVT_DX_DX:  Lrgfltcm\ 


10 
-$ep-1984 23:57:30 AX-11 Bliss-32 V4.0-742 
27808-1382 93:37:70 DEBUG. SRC IDBGCVTDX.B3251 


ASC nt\ 
P.AKI: .ASC DBGCVTDX\<92>\DBGSCVT_DX_DX: nmbds_irg\ 


II vit teae x\ 

I] \4DBGCVTDX\<92>\DBGSCVT_DX_DX: error in\ 
eASCII \ h-to-te conversion\ 

P.AKK: .ASCII \'DBGCVTDX\<92>\DBGSCVT_DX_DX: nbds_nbd\ 


P.AKJ: 


ASCII \s\ 
P.AKL: <cASCII \SDBGCVTDX\<92>\DBGSCVT_DX_DX: invalid \ 


1 
1 
SF 54 56 017BF 
8 4 f 17¢ 
$f 17D ASCII \plx gots tecagls) 
rY: 2 4 re) P.AKB ASCII \4DBGCVTDX\<9 >\DBGSCVT_DX_DX: error in\ 
9 9 17FF 
4 4 : 93 eASCII \ g-to-te conversion\ 
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ee BE B0 AD 55 1088 Ha MOVE INTHE: DATA, @O0UTPUT ; 6 | 
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DEBUG. SRC 


CLASS $_DESC 
Juines. BATA 


4 #35 
4e$ 


SRC_INFO*#5S, CLASS_S_DES 
sae eit CLASS_-S_DES 


ses (StS) 
ASS Y esc 
iv OTSscVT_1.H 
evar Ts. 7$ 
D esol * OPCODE _NAME 
64504 
i LIBSSIGNAL 
MP _BUF 1+1 
HF SRC INFOS? +7 
te 36, _BUF Se ~echSs. S_DESC+4 


-(SP) 

TEMP S_DESC 

FORSCVT_H_TF 
T P56 


RO: 
5 GseL *obCODE _NAME 


& 
EES aura 


Nal UF2, RO 
RO, BUF OFFSET 
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12 
14-56 19 57:3 AX-11 Bliss-32 V4.0-742 Page 1 
ati aet rit Te DEBUG. SRCIDBGCVTDX. B32: 1 9° 25). 
2c OA 0 SA C3 O11A SUBL3 BUF_OFFSET, #48, NO_DIGITS : 2695. 
mm gehen alt WHET gg, GRE uh GU: Bh : 
goes tts Boae 11BD - iss - : 
9$-245$.- : 
Geb seas ; 
A a rt te : | 
0B 1 011¢3 om he ait : 2768 
é | 
88 * 11¢6 BNEG 246$ : 
00000000" EF 9F O11C PUSHAB P AGT : 2769 | 
9 11 011¢ BRB 251 : 
11 : D1 01100 2466$: CMPL R6, #17 : 2770)! 
12 011D BNEG =. 247$ ; 
00000000" EF 9F 0110 PUSHAB P.AGU : 2771) 
1¢ 11 01108 BRB 251$ : 
17 36 D1 011DD 2467S: CMPL 6, #23 + 2772 
09 12 O11E BNEG 2498 : 
00000000" EF 9F O11E PUSHAB P.AGV + 2773 
1DbE 31 O11E 48s: BRW 647$ : | 
23 D1 O11EB 249$:  CMPL Rg #35 3 2776 | 
03 13 O11€ BEQL 6-250 : 
1DE 3 11F BRW 649$ : | 
00000000" EF 9F 011F3 250$: PUSHAB P.AGW : 2775. 
15 ce AD ED O11E S828; Bebe | EROS INFO*7, 2538 * o702| 
000000006 i DD FE PUSHL DBGSGL_OPCODE _NAME : | 
Q0028EFO BF DD 01207 PUSHL #167664 aes 
000000006 00 03 FB 0120D CALLS #3, LIBSSIGNAL : 
57 69 3C 01214 2538: MovZwL (R95), R7 ; 2703) 
57 2c AE D1 01217 CMPL NO_DIGITS, R7 ; | 
15 15 0121B BLEG 25% : 
000000006 00 DD 0121 PUSHL  DBGS$GL_OPCODE_NAME : 
1 DD 01 PUSHL # : 
00028A3A 8F DD 01 PUSHL 645 : 
000000006 00 3 Fe 1 CALLS #3, LIBSSIGNAL : 
50 7 2c «AE «C3 01232 2548:  SUBL “DIGITS, R7,. RO > 2704 
50 30 6E ie 00 2c ? MovCS #07 (SP), #48. RO, TEMP_BUF1 : 
50 FF7C CD47 GE 0123F MOV TEMP_BUFICR7], RO + 2706 
50 eC AE 1245 SUBL2 NO_DIGITS, RO : 
60 61 AEGA ts 1249 MOVCS NO-DIGITS. TEMP_BUF2+1(BUF_OFFSET], (RO) ; | 
00E 1 BRW 268$ : 3707 | 
9 83 1253 2558: TSTw  (R9) : 2716 
t OL O1 Wee Ste Len : | 
§ 11 01259 BRB BES : 
54 9 3¢ 1258 256$: MOVZWL (R9), DES_LEN F 
4 07 01 3 DECL DES_LEN : 
2c AE 4 D1 1260 257$:  CMPL DES LEN, NO_DIGITS : 2718 
5 18 01264 BGF 2 $ 3 
000000006 00 oD 01 66 PUHL DAGSGL _OPCODE NAME : 
1 DD 0126C PUSHL @ : 
00028A3A BF DD 01 6 PUSHL #166458 : | 
000000006 00 3 FB 01074 CALLS #3, LIBSSIGNAL : 


a wet BS OOOO wna 
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14-Sep-1 16:4 DEBUG. SRCJDBGCVTDX.B32;1 (29) 
FF7C =D 54 60 AEGA 2¢ AE 09 01278 258%:  cCvTSP NO DIGITS, TEMP_BUF 2CBUF_OFFSETJ, DES_LEN, -; 2719. 
34 «BE 54 FF7C «CD 4 ce 5 cvIPS siete TEMP_BUF1, DES_LEN, @OUTPUT : 720, 
52 01 AA 3 128F 2598: MOV (R10) : 2725 
52 30 6E - 00 ¢ 33 movcS #0, (sb) 68, R2, TEMP_BUF2 : | 
2c AE 69 10 FD 129A CMPZV #0, #16, (RO), NO_DIGITS : 2726 
12A BGEQ ©. 260$ : 
000000006 00 DD 012A PUSHL DBGSGL_OPCODE_NAME : 
DD 01 PUSHL # ; | 
00028A3A F DD OQ12AA PUSHL A er gt 3 
000000006 00 FB 01 80 CALLS #3, LIBSSIGNAL ; | 
A 36 1287 260$: MOVZwL (R95), BUF ° F t 2727 
SA 1 A é 12BA SUBL3_ BUF OFF FF SET #49, BUF_OFFSET : 
1 60 AEGA SE 0128 MOVAB TEMP_BUFLBUF_OFFSETI, R1 t 2728 
50 9A 012C MOVZBL (R1)7> RO : 
50 0000000060040 3 1266 MOVAB LIB$AB_CVT_U_0-48CROJ, RO t 2729) 
eh FF AD €9 01 ce BLBC = SRC IN NFO+77 261$ : 2728 
0A AO DO 0120 MOVL 10(R0), RO’ : 
03 «(11 1$08 Bras 262$ 3 
50 : p 1 618: MOVL (RO), RO + 2729 
61 5 1208 262$: MOVB RO, (R1) : 728 
34 «BE 61 69 28 01 DF MOVC3 (R9), (R1), @OUTPUT + 2731 
5A 11 OIZES 2638: BRB” 2698 : 697 | 
69 83 1265 264$: TSTWw (R9) + 2740 
04 12 0127 BNEQ 265$ 3 | 
7 04 01269 CLRL DES_LEN ; | 
0S 11 01268 BRB 2668 : 
57 69 3¢ 12ED 265$: MOVZWL (R9), DES_LEN : 
57 07 01 FO DECL  ODES_LEN 3 | 
57 2c AE D1 O12F2 2668: CMPL NO_DIGITS, DES_LEN > 2742. 
15 15 01266 BLEG 2678 : 
000000006 00 DD 012F8 PUSHL  DBGS$GL_OPCODE_NAME : 
1 DD 01 Fe PUSHL a : | 
00028A3A 8F DD 01 PUSHL #166458 : 
000000006 99 3 Fe 1306 CALL #3, LIBSSIGNA : 
0 7 2c Ar C3 fF 2678: SuBL O/DIGITS, DES _LEN, RO > 2743) 
50 30 6E icin G9 yi 1 MOVCS #0, (SP), #48, RO, TEMP_BUF1 : | 
10 A AE FF7C coe? 9€ 0131 MOV TEMP_BUFICDES_LEN), ajecs?? t 2744 
50 ¢ AE 1 SUBL3 NO DIGITS. 16xsP) : | 
60 e AECA ¢ AE 1 MOVC3 NOWD IT MP BUF Ss 1CBUF_OFFSET], (ROD): 
BE AEGA i ROVE TEA, SUF tauF _OFFSETJ, al6TSP) : 3745 | 
34 BE FF7C «CD 3} 28 1 68$: MOVC3 R7, TEMP_BUF1, aOUTPUT F 
1 0133F 269$: BRB 276$ ; 3697 
2c AE 69 10 FD ai 0s: CMPLV #0, #16, (R9), NO_DIGITS : 2752 | 
000000006 00 od 01349 PUSHL DBGSGL_OPCODE _NAME : 
1 DD 01345 PUSHL @# : 
00028A3A 8F DD 01351 PUSHL #1664 : 
000000006, 00 3 FB 01357 CALLS #3, LIBSSIGNAL F 
FF7C «CD 69 AEGA 2c «AE «009 :0135E 2718: CvTSP NOaDIGIT , TEMP_BUF2CBUF_OFFSET], (R9), - : 2753) 
13 6B 91 01368 cMPB.C«CRXI'NT, #19 2 2755 | 


} 
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1$-se0-1984 3:76:02 — EOteuG. SacdoeecvYoxcasect | 


é | 
BNEQ 2728 . iow 
000000006 Q : éD ROVAB LIBSAB_CVTPT_O, RO te 
50 1952 o90g, BPO 1BSAB CVTPT Ty RO eo). aQurPUt 9756) 
Zp 000000006 Oe Ok OISTS Sosa; COVEY AOD ENE Gort. "Ror, crov. pie 
nei woth Vong Phas 3 i RB -2768 : 38i 
Be 11 OI as DIGITS, #31 : | 
1F 2c AE D1 1888 27cs: CHL. Bal 
13 43 O18 PUSHL _BBGSGL_OPCODE .NAME ta” 
0 od 01 PUSHL ° - : | 
000000006 } DD 01 PUSHL #166456 ; | 
00028A3A BF DD 01396 PUSH, B16OASE. sat vgn Pee Le ae 
000000096 90 2c AE 089 OISAS 2758: EVES ND DIGITS, TENPBuF2CBUF_ a. 
> ices 31 13Ak 5778; CMPB (Ril), #2 
: 2 oI CHP ORIN), #14 ; 
OE S 91 Bear « 280s.” : 
8 Ot bieeo (NPB (RIT), #37 ; 
25 68 81382 BcEGU 2798 a 
i 3] O13BE 2788: BR 9078 3 
27 oes 91 Oleh 5758: we, ls oP Pies 
BS un Bl aee MOV. #50. CLASS_$_ DESC 2 3786 
58 AE Ae SE OISCA mova TENP_GUFS ~eCAgs Ss, DESC #4 2 $750 
=) = ” sf be i cf CLRL BUGITS_IN_FRACT : 2801 
ag Be Ota TSIL BIN-SCALE : 
fog | Et gy, : 
52 D6 01307 uct RZ 
30 AE oS 1309 Bedt 2818 : 2803 
PUSHAB PA ; 
eocpres Of Bb O1SES PUSHE #166706 
eoceeses ORs citer CALLS #30 LIBSSIGNAL  og04 
000000006 00 08 13F3 281$:  TSTL BIN SCALE Pia 
Oe te Ota MNEGL GIN SCALE, DIGITS_IN_FRACT : 3806 
T 30 AEB QUEER zazs: BSI Stace 2809 
RE CE OISEE ANEGL SCALE, DIGITS_IN_FRACT : $80 
06 3% DE O140$ 20ss: Cnet + S oai6 
4E iF 1406 ihe INTMED_DATA, TEMP_BUF1 2821 | 
mB RRR ass GEE gins es 
1 Fre. Ob ae int or le hee ; | 
3 0 6° , . ae nsB DAGSCVT_DIVD2_R1 > 2824 | 
a a es i 
TT 1486 gre, Sits : 2828 
18 13 91498 zass: BLE TEMP_BUF1, RI ; 
S ooondons: EF Se Stese ROVAB PLAGZs RO 
3) oo000000' EF 96 Ole3t 


12 
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irae tt ek toes ri te 6) a PART Og Fe a 0 3 
000000006 16 14 JSB DBGSCVT_MULD2_R1 ; | 
p 143¢ DECL BIN SCACE : 8 9| 
E8 11 014 BRB 5$ : 4 
30 AE DD 01440 286$: PUSHL SCALE + 2832) 
5? DD 0144 PUSHL DIGITS_IN-FRACT : 
$ AE 9F 0144 PUSHAB CLASS_S_ DESC 3 
FF7C }«=6CD OOF «0144 PUSHAB TEMP BUF : 
000000006 00 4 8 1446 CALLS #4, FORSCVT_D_TF : 
015A 14 Bru = 308 ; 
oc 36 Db} 14 3 287$: CMPL 6, #12 + 2835 
14 BEQL ‘ 8s ; 
OOFC 31 1458 BRW 0$ ; 
1A 04 BE } 14 5 288%: CMPB a4(SP), #26 + 2836 
4E 13 0146 BEQL 2928 : 
51 FF7C }«6CD (9E 01464 MOVAB TEMP_BUF1 + 2839 
BO AD 9E 01469 MOVAB INTMED_DAT : 
000000006 00 1 146 JSB DBGSCVT_CVTROUH_R1 : 
FF AD f 14 BLBC SRC INF O47, 2898 + 2840 
FF7D CD 80 8F 88 0147 BIS82 #128, TEMP. BUF1+1 : 
8 D5 0147D 289$: TSTL BIN SCAL + 2846 
16 18 0147F BGEG 290 ; 
51 FF7C CD 9E 01481 MOVAB TEMP_BUFI, R1 + 2848 
50 00000000" EF 9E 01486 MOVAB P.AHA, RO : 
000000006 16 0148D JSB DBGSCVT_DIVH2_R1 : 
D6 01493 INCL IN SCALE + 2849 
11 01495 BRB 9 + 2846 
14 01497 290$: GIR 91$ + 2851 
0101 31 01499 BRW 02 ; 
51 FF7C CD 9€ 0149C 291$: MOVAB  TEMP_BUFI, R1 + 2853 
50 00000000" EF 9E€ 01441 MOVAB P.AHE, R : 
000000006 00 1 0148 SB DBGSCVT_MULH2_R1 F 
8 D O14AE DECL BIN SCAL > 2854 
ES 11 0148 RB 2908 + 2851 
15 2 9 1482 2928 LBC —._—«&R2, 293 + 2869 
00000000' EF SF 0148 PUSHAB P.AH > 2871 
1 DD 01488 PUSHL “i ; 
00028362 8F DD 01480 PUSHL 64706 ; 
000000006 00 3 FB O14C CALLS a3° LIBSSIGNAL ; 
58 AE B4 O14CA 293%: CLRW CLASS S DESC + 2873 
48 AE BO AD 10 14¢ MOVC3 #16, INTMED_DATA, PREVIOUS_VALUE + 2880 
48 AE BO AD 10 14D3 294%:  MOVC #6. INTMED-DATA, PREVIOUS-VALUE + 2900 
” 000000806 00 6 12 ce D aposeuT. orate OU_DOWN_BY_10_R1 P< 
38 AE BO AD 98 38 Stee wovc3. | ig INTRED DATA; SAVED_OALOE £291 
” 000000806 00 ib 1g mB Intfep OaTA SCALE 0 : 2917 | 
51 8 AE 3¢ 14h MOVZWL LASS. S“DESC, - CURRENT ‘BOSTTION + 2925 
50 a 51 5¢ AE ci 149 2958: ADDL 3 CLASS_ $_D Sc+4, CURRENT_POSITION, RO : 
F4 $f F4 01 05 296$:  SOBGEQ CURRENT POSITION, 295$ : 
50 48 «OA BO A 3 150 SUBL D BATA eee IOUS VALUE, RO : 2930 
5c BE 5 a ; ! ADDE a ERO act (ASS_S_DESC+4 F 
151 MOVC3 SAVED VALUE, “‘pnes DATA ; 
veh anes = BC h és 151 TSTL INthed DA YSP “ + 2947 
B 151¢ BNEQ ; 


roroern 
2o 
rw 
on 
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1 4 12:1 DEBUG. SR -B32;1 (29) 
1 TSTL NTMED_DATA+8 3 2948 
° a i BNEG Hs : 
05 01 TSTL JNTHED_DATA+4 : 2949 | 
12 01 6 BNEG 94$ : 
D5 01 TSTL JNTHED_DATA : 2950. 
12 01528 BNE 94$ ; 
19 FF OAD 1530 BLBC  SRC_INFO+7, 299$ : 3955 
51 58 A ¢ 1 MOV ZUL GLASS _S_DESC, CURRENT _POSITION : 961 
50 51 5¢ AE gi 1 ; 297$:  ADDL3 CLASS_ DESC#4, CURRENT_POSITION, RO : 
01 AO 0 0153¢ MOVE (RO), ~1RO) : 
F4 1 £4 01540 298$: SOBGEQ CURRENT POSITION, 297$ : 
5C BE D 90 0154 MOVB #45, acCASS_S_DESc+4 + 2% 
58 AE 86 154 INCW  CLASS_S_DESC : 
50 38 AE 3C 0154A 299%: MOVZWL CLASS~S-DESC, RO : 2971 
50 C AE CO 0154 ADDL2 CLASS~S~DESC+4, RO F 
60 E 90 0155 #46, TRO) : 
6E 1 00 0155 MOVL #1, STATUS : 2973 
9 11 1358 BRB 304$ + 2836 
1€ 6 D1 0155A 3008: CMPL 6, #30 : 2976 
54 iF 1550 BNEQ 3048 ; 
15 52 f 155F LBC ~—._—«&aR2, 3018 + 2981 
00000000' EF 9F 1368 PUSHAB P.AHD + 2983 
01 DD 0156 PUSHL #i : 
00028362 8F DD 0156A PUSHL #164706 : 
000000006 00 03 FB 91570 CALLS #3, LIBSSIGNAL : 
2c AE FD AD 3C 01577 301%: MOVZWL SRC_INFO+5, NO_DIGITS + 2985 
60 AE 2c AE BO AD 2c «AE «(08 0157¢ CVTPS NO Bicits, INTMED_DATA, NO_DIGITS, - + 2986 
58 OA 2c OA 01 Al 01585 ADDW3 #1, NO_DIGITS, CLASS_S_DESC + 2987 
15 DD 01388 PUSHL #21 : 2989 
7E 7C 0158D cLRQ. = + 2988 
FF7C CD OF 0138 PUSHAB TEMP_BUF1 ; 
68 AE 9F 01593 PUSHAB CLASS S_DESC : 
000000006 00 05 FB 01596 CALLS #5, OTSSCVT_T_H : 
30 AE DD 0159D 302$: PUSHL A : 2990 
5? DD O15, PUSHL DIGITS_IN FRACT : 
60 AE 9F 015A PUSHAB CLASS. S_DESC : 
FF7C CD OF O15A PUSHAB TEMP BU : 
000000006 00 04 FB 0159 CALLS #4, FORSCVT_H_TF : 
6 50 b0 1380 3038: MOVL RO STATUS : 
60 a€ 20 : 1583 304$: SKPC #32, #50, TEMP_BUF2 + 2996 | 
0¢ 12 01588 BNEQ 3058 : 
p4 15BA CLRL sR : 
50 60 Ar 158C 305$: MOV TEMP_BUF2, RO : 
SA 31 50 ¢3 015c0 SUBL3 RO, R1, BUF_OFFSET : 
52 2 SA : 15¢4 SUBL3 BUF_OFFSET, #50, R : 2995 
60 AEGA 52 0 3a 015¢8 LOCC #327 R2, TEMP_BUF2CBUF_OFFSET) : 
é 12 015¢ BNEQ 3068 ; 
d4 0150 CLRL sR ; 
1 DS 0152 3068: TSTL NEXT_BLANK : 2996. 
5 12 015D BNEQ 7$ : 
55 2 pO 01506 MOVL 2, FINAL_LEN > 2998 | 
0B 11 01509 BRB : 
51 SA ge 1508 307$:  SUBL2 BUF OFFSET, R1 : 3000. 
0 60 Ar 5 1 DE MOV TEMP BUF2, RO : 
55 51 50 3 015€ SUBL3 RO, Rl, FINAL_LEN ; 


13 
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witae tt 12-808-1 984 $3:3oias DEBUG. SRCJDBGCVTDX.832;1 9° 29) 
7 05 015€6 308%: TSTL . TS_IN_FRACT : 3001, 
et ein 0s 
72 § E8 01SEC 309$: BLBS STATUS, 317$ : 3005 
58 AE BO O15EF MOVW #50, GLASS_S_DESC : 3008 | 
1E : D1 01563 CMPL =soaR6, : 3009) 
| 0 if 1 re BNEG 31068 : | 
57 1F 00 015F MOVL #31, DIGITS_IN_FRACT + 3011 
1D 11 015FB BRB 313$ : 
09 FS AD 81 015FD 310$:  CMPW ps INFO+5, #9 + 3013 
05 1A 01601 BGTRU 3118 : 
57 21 00 1605 MOYL 433 DIGITS_IN_FRACT + 3015 
12 11 01606 BRB 313§ : 
50 F5 AD 3C 01608 311%: MOVZWL DST_INFO+5S, RO : 3017 
50 09 C2 0160C SUBL2. #9, RO ; 
21 50 01 01608 CMPL = RO. #33 : 
03 15 01612 BLEQ 5168 : 
50 ¢! DO 01614 MOVL #33, RO ; | 
57 0 DO 01617 31 $: MOVL RO, DIGITS_IN_FRACT : 
04 DD O161A 313$:  PUSHL #4 : 3018) 
7E D4 0161C CLRL. (SP) : 
38 «AE DD O161E PUSHL SCALE ; 
57 DD 1621 PUSHL DIGITS_IN-FRACT : 
68 AE 9F 01623 PUSHAB CLASS_$_DESC ; 
FF7C CD 9F 01626 PUSHAB TEMP_BUF1 3 
000000006 00 06 FB O16¢A CALLS #6, FORSCVT_H_TE 3 
6E 50 DO 01631 MOVL RO, US ; | 
15 6E £8 01634 BLBS STATUS, 314$ : 3019) 
00000000' EF SF 01637 PUSHAB P.AHE ; 
01 oD 01630 PUSHL : 
00028362 8F DD 0163F PUSHL #164706 ; 
000000006 00 03 FB 01645 CALLS #3, LIBSSIGNAL : 
AE 32 20 38 0164C 3148: SKPC #32, #50, TEMP_BUF2 : 3020 
02 12 01651 BNEQ  316$ : | 
51 04 01653 315$: CLRL RI : 
50 60 AE 9E 01655 316$:  MOVAB TEMP_BUF2, RO : 
SA 51 50 C3 01659 SUBL3 RO, R1, BUF_OFFSET ; 
55 32 SA C3 01650 SUBL3 BUF_OFFSET, #50, FINAL_LEN > 3021) 
146 AE 55 00 01661 3178: MOVL  FINAL_LEN, OUTPUT_STR_CEN > 3024. 
26 6B 91 01665 CMPB Ss (R11) 7 #38 : 3027 
46 12 01668 BNEQ 321$ F 
58 AE 55 BO 0166A MOVW  FINAL_LEN, CLASS_S_DESC > 3031 
SC AE 34 OA 01 C1 0166E ADDL3 #1, OOTPUT, CLASS_S_DESC+4 : 3032. 
52 58 AE 9E O16 74 MOVAB CLASS S DE C : 3033. 
51 60 AESA 4 1678 MOVAB TEMP _GUF2CBUF_OFFSET], R1 ; 
50 55 00 01670 MOVL FINAC_LEN, : 
000000006 09 16 01680 JSB LIBSStoPy R_DX6 : 
6E 50 D0 016 MOVL RO, STATUS : 
000000006 &F 6f D1 01689 CMPL StAtUs, #LIB$_STRTRU + 3034 
15 12 01690 BNE 19$ : 
000000006 00 oD 1698 318$:  PUSHL DBGSGL_OPCODE_NAME : 
1 DD 0169 PUSHL #1 : 
000286AB 8F DD 0169A PUSHL #165547 ; 
000000006 00 3 FB 16A0 CALLS #3 L 1BS$1GNAL : | 
0 6f 16A7 319$: BLBC STATUS, 320$ ; 3035. 
176 1 O16AA BRW 6328 F 
1755 31 016AD 320$: BRW 621$ ; 
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000000006 990 
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91 01680 321$: 
12 0168 
BO 0168 
4 168 
E 0168 
43 16C 
DO 016C 
is 16CA 
D 1600 
Di 0160 
12 O16DA 
DD 81606 322$ 
DD O16E 
DD 016€4 
rs 16EA 
16F1 3238 
1 O16F4 
1 O16F7 3248: 
SE O16FA 3258: 
DO O16FF 
DO IEA 
16 0170 
DO 01708 
D1 81708 
13 0171 
31 01717 
31 O171A 3268: 
D1 01710 327$: 
12 01720 
oF 61056 
11 0172 
D1 0172A 3288: 
12 01720 
oF piee 
11 01735 
D1 01737 329$: 
13 O173A 
31 Hes 
OF O173F 330$ 
31 01745 331$ 
D5 Ea 328 
15 O174A 
9E 0174C 
9E 1738 
16 01757 
9E 81720 
9E 01761 
M 1768 
D7 0176 
11 0177 
18 01772 3338: 
9E 01774 
+ 1778 
16 Q177F 
9E 1783 
9E 01789 
16 01790 


Be $2546: 


DEBUG. SR 
», #39 


S_DESC 
TPUT, CLASS_S_BESC+4 


DBGSGL_OPCODE _NAME 
4 ae g 4 

#3, LIBSSIGNAL 
STATUS, 324$ 


626$ 
TEMP _BUF 2CBUF_OFFSETIJ, R1 


ATUS, #LIBS_STRTRU 


47$ 
BIN, SCALE 
3$ 
INTMED_DATA, RI 


AHI, 
DBGSCVT_MULD2_R1 
INTMED_DATA+8;, R1 


P.AHJ, R 
DBGSCVT_MULD2_R1 
N_SCACE 
4$ 
INTMED_DATA, R1 


P.AHK, 
DBGSCVT_DIVD2_R1 
INTMED_BATA+8, R1 


P.AHL,~R 
DBGSCVT_DIVD2_R1 
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DEBUG. SRC JDBGCVTDX.832;1 


INTMED_DATA+16, R1 
-AJV, RO 


DBGSCVT_DIVH2_R1 
IN SCALE 


LE 
9 
TED_DATA, RI 


SCVT_MULH2_R1 
MED_BATA+16, R1 
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INTMED_DATA, RO 
OUTP 
DBGSCVT_CVTHF_R1 
#4, OUTPUT, 

Infes DATA+T6, RO 
INTMED_DATA, RO 
OUTPU 
DBGSCVT_CVTHD_R1 
#8, OUTPUT, R 
INTMED_DATA+16, RO 
INTMED_DATA, RO 
OUTPUT 
DBGSCVT_CVTHF_R1 
INTHED_DATA, RO 
S$CVf_CVTHD_R1 
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14 
DBGCVTDX 1$-Se -1984 23:57:30 AX-11 Bliss-32 V4.0-742 
v04=000 1a-8ep-19 4 93:77:20 DEBUG. SRCJDBGCVTDX.B32; 1 
60 AE 32 38 184 442$:  SKPC #39 #50, TEMP_BUF2 
189 BNEG 443§ 
04 02188 CLRL ss R21 
0 60 Ar 9 18 443$: MOV TEMP BUF2, RO 
SA 1 C3 02191 SUBL3 RO, Rl, BUF_OFFSET 
55 2 A C3 02195 SUBL3 ®UF_OFFSET,~#50, FINAL_LEN 
14 AE 5 199 MOVL FINAL_LEN, OUTPUT_STR_CEN 
26 68 91 0219D CMPB 3s (R11) > #38 
ef 13 149 BNEQ  445$ 
58 AE BO O21A MOVW. FINAL_LEN, CLASS_S_DESC 
SC OAE 4 AE 01 C1 02146 ADDL3 #1, OOTPUT, CLASS_S DESC +4 
3 8 AE 9E TAC MOV CLASS_S Desc R2 
1 60 AEGA 44 18 MOVAB TEMP GBUF2CBUF_OFFSETI, R1 
50 55 D 1B5 MOVL FINAC_LEN, 
000000006 99 16 02188 JSB8 LIBSSCOPY.R_DX6 
bE 0 00 021BE MOVL RO, STATU 
000000006 8F 6f D1 021C1 CMPL STATUS, #LIBS_STRTRU 
03 13 021¢8 BEQL 444$ 
F4DA 31 O21CA BRW 3198 
F4C2 31 O21CD 444$: BRW 18$ 
27 68 91 02100 445$:  CMPB (R11), #39 
3 13 02103 BEQL 446$ 
F5¢2 31 02105 BRW 325$ 
58 AE §5 BO 02108 446$: MOVW FINAL_LEN, CLASS _S_DESC 
5C AE 34 AE DO 0210C MOVL OUTPUT, CLASS_S_BeESC+4 
52 58 4=6AE «O9E O021E1 MOVAB CLASS Best 
51 60 AESA 9E 021E5 MOVAB TEMP GUF2CBUF_OFFSETI, R1 
50 55 DO O21EA MOVL FINAC_LEN, RO 
000000006 00 16 021ED JSB LIBSSCOPY.R_DX6 
6E 50 DO 021F3 MOVL RO, STATUS 
000000006 8F 6E D1 021F6 CMPL STATUS, #LIBS_STRTRU 
03 13 O21FD BEQL 447$ 
FGEF 31 O21FF BRW 323$ 
F407 31 93208 447%: BRW 322$ 
00000000" EF 9F 02205 448$: PUSHAB P.AKD 
0DBB 31 02208 BRW 647$ 
50 AD 3C O220E 449$: MOVZWL SRC_INFO+5, RO 
2c. OA 50 DO 02212 MOVL RO. NO_DIGITS 
58 OA a9 01 03 EF 02216 EXT2V. #3. #1- 10(R9), RB 
6E 58 E9 1C BLBC 3=Es-s«aRE{’. -4 SS 
09 03 AA 91 1F CMPB  0=s«-3(R10), #9 
OA i2 33 BNEQ 450$ 
30 AE 08 AA 980 CVTBL 8(R10), SCALE 
‘A 30 AE 30 AE 3 0 gh MNEGL SCALE, SCALE 
FF7C }3=—oCD 2c AE BO AD C AE F 450$:  CVTPS NO DIGITS, INTMED_DATA, NO_DIGITS, - 
58 AE 2c OA 01 Al 0 39 ADDW3 #1, RO DIGITS, CLASS_$_DESC 
5C AE FF7C CD 9E O223F VAB TEMP_BOF1, CLASS_S_DESC+4 
7E 44 BF 9A 02245 MOVZBL #68,7-(SP5 
34 AE DD 02249 PUSHL SCALE 
7E p4 4C CLRL. = (SP) 
BO AD 9F 4E PUSHAB INTMED_DATA 
68 AE OF 1 PUSHAB CLASS _§ DESC 
000000006 00 9 F 4 CALLS #5, OTSSCVT_T_H 
of 0 oD B MOVL RO. STATU 
é oF a 3 BLBS STATUS, 453$ 
0 000000006 D 6 MOVL § DBGSGL_OPCODE_NAME, RO 


14 
18-s¢ -1984 23:57:30 AX-11 Bliss-32 V4.0-742 Page 149 
12-808-1 382 $3: fhice DEBUG. SRC IDBGCVTDK.B3251 9° (29) 
30 AE OD 68 TSTL SCALE : 
of F} 68 BGEG 2S4t : 
DD 02260 PUSHL RO : 
1 DD ¢F PUSHL #1 : 
00028698 BF DD 1 PUSHL #165531 : 
A 11 77 BRB 452$ : 
0 DD 02279 451$:  PUSHL RO : 
o1 DD 02278 PUSHL #1 : 
00028A02 BF ODD i PUSHL #166402 : 
000000006 00 03 cB 4598: CALLS #3, LIBSSIGNAL ; 
0001 A 453$: RW 4662S : 
01 BO AD 2c AE 454$: CMPP4 NO_DIGITS, INTMED_DATA, #1, @PACK_ZERO + 3471 
54 oC MOVPSL : 
4 07 0229¢ DECL = RG : 
04 15 3 BLEG 455% : 
FF AD 01 88 022A BISB2 #1, SRC_INFO+7 : 
30 AE bd 0 AG 455$: TSTL SCALE : 
3¢ 1 A? BEQL © 458$ : 
FF7C =«CD BO AD 2C AE 34 022a9 MOVP  NO_DIGITS, INTMED_DATA, TEMP_BUF 1 : 
Of OC AE 3 02281 BLBC CVT_ROUND FLAG, 45 3 
s BO AD 9E 02285 MOVAB INTMED DATA, R5 : 
54 2c OA 9 02289 MOVAB NO_DIGITS, R4 : 
18 AE 05 DO 02280 MOVL #57 24(SP5 : 
0B 11 022¢1 BRB $ : 
55 BO AD 9E 0 C3 456$: MOVAB  INTMED_DATA, RS : 
54 2C «AE SE 022C7 MOVAB NO_DIGITS, R4 ; 
18 AE 04 022¢B CLRL 4TSP) : 
53 18 AE 9E O22CE 457$: MOVAB 24(SP), R3 : 
52 FF7C CD OE 0 Dg MOVAB TEMP _BUF1, R2 ; 
51 26 AE 9E 0220 MOVAB NO_DIGITS. R1 ; 
50 0 AE 9E 02208 MOVAB SCALE, R $ 
000000006 00 16 0220F JSB DBGSCVT_ASHP_R1 : 
50 6A 3¢ 022E5 458$: MOVZWL (R10) : 
51 08 AA 98 02268 CVTBL 8(R105, R1 : 
50 51 £0 O22EC ADDL2 R1, RO : 
52 69 3C O22EF MOVZWL (R9), R2 ; 
51 08 Ao 98 6 eFe CVTBL 8(R9S, RI : 
52 51 CO 022F6 ADDL2 = R1,, Re : 
52 50 01 6 9 CMPL §=6RO. R : 
58 15 O2erc BLEG 406-4618 : 
15 04 BE 91 0 FE CMPB s-s@4 (SP), #21 : 
52 12 0230 BNEQ 461$ : 
15 6B 91 0 04 CMPB ss (R11), ‘#21 ; 
4D 12 7 BNEQ 4618 : 
50 BF AD 3 6 09 MOVAB INTMED_DATA+15, HIGH_NIBBLE_PTR ; 
52 69 3C 0230D MOVZWL (R9) : 
5 g C6 19 DIVL2 #2, R2 ; 
5 ¢ 1 SUBL HIGH NIBBLE_PTR, R2 : 
5 52 CE 02316 MNEGL R2, COW NIBBLE_PTR ; 
5 6 C 02319 MOVZWL (RO) : 
00 50 1 7A 0231¢ EMUL #1, RO, #0, -(SP) : 
50 8E 98 7 1 EDIV. #2. (SP)+, RO, RO F 
1) g TSTL R : 
62 04 09 Le 8535p Bree BO #6, (LOW.NIBBLE PTR). RO ; 
62 50 F MOVB RO, (LOW_NIBBLE_PTRY ; 
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14 
DBGCVTDX 15-Sep-19 4 23:57:3 AX-11 Bliss-32 V4.0-742 
yOL-000 12-808-138e $3:3o ies DEBUG. Bac ibecevybx esos) 
FBBC 31 023¢ BRW 383$ 
B80 AD C5 4668: TSTW INTMED_DATA 
9 ¢ BNEQ 467$ 
053¢ CA BRW 542$ 
FF7C p D4 023CD 4678: cLRL TEMP in 
56 B1 AD 01 F 02301 EXT a7, 8 INTMED DATA+T, SIGN 
B1 AD 80 8F 8A 02307 BICB2 #128, INTMED_DATA+1 
24 80 AD 3C 023D MOVZWL INTMED DATA, erat SCALE 
4 co C4 E MOVAB -16384TR4), FLOAT_SCALE 
3 08 Ao 9 E CVTBL 8(R9), R2 
.¢ £9 ADDL2 #7, R 
5 4 01 EC CMPL FLOAT. SCALE, R2 
B 14 OOsEF BGTR 474$ 
FF7C «CD 40 BF 88 023F1 BISB2 #64, TEMP 
50 B3 AD 06 08 EF O23F7 EXTZV 2, #6, IAYRED, DATAS3, RO 
FF7C 36s CD 06 00 FO FD INSV #6, TEMP_BUFI 
54 52 54 63 02404 SUBL3 FLOAT _SCALE, R2,~ PLOAT _SCALE 
09 15 02408 468%: BLEQ 469% ~ 
FF7C §=6CD 92 C6 0240A DIVL2 #2 ba TEMP BUF 1 
4 D7 0240F DECL “SCALE 
F511 02411 BRB 
03 56 8 0 413 469%: BLBS et "4708 
0545 31 02416 BRW 49$ 
0538 31 02419 4708: BRW 548$ 
03 38 cS 0241C 471$: BLBS R8, 4728 
F852 31 O241F BRW 385$ 
BO AD BS 024 : 472$: STW | INTMED_DATA 
03 12 024 BNEQ 4738 
0554 31 02427 BRW 
FF7C CD 04 0242A 473$: CLRL TenP 
56 B1 AD 01 97 F 0242E EXTZV @ He OT NTMED DATA+1, SIGN 
B1 AD 80 8F 8A : 4 BICB2 #128, INTMED_DATA+1 
54 BO AD 3C 024 MOVZWL INT MED_DATA, “FLOAT SCALE 
54 C000 3&4 3 43D MOVAB. -163 TRG), FLOAT_SCALE 
§ 08 AD 98 02442 CVTBL 8(R9) 
5 OF CO 02446 ADDL2 #15, ko" 
5 54 D1 02449 CMPL itr doe R2 
60 14 0244C 474$: BGTR 482$ 
FF7D CD 40 BF 88 0244E BISB2 #64, TEMP B UF 141 
50 B2 AD OE 08 EF 02454 EXTZV #2, wid INTMED,D DATA+2, RO 
FF7C = CD O€ 00 FO 0245A INSV. R “#14 P_BUF 
54 52 54 ( 461 SUBL3 FUGA at OS cALE: Re. FLOAT_SCALE 
9 465 475$: BLEQ 4768 ~ 
FF7C «CD é cé 46 DIVL2 #2, TEMP_BUF1 
D7 0246C DECL FLOAT. SCALE 
-5 11 46 BRB 475$ 
03 36 8 02470 476%:  BLBS IGN, 477$ 
05 p 1 0247 BRW $08 
0553 «31 47 477$: BRW 9$ 
08 58 £8 02479 478$: BLBS RB, 480$ 
50 FF7C cD E 0247C 479$: MOVAB TEMP_BUF1, RO 
0474 31 02481 BRW 540$ 
B0 aD 484 480$: TSTw  INTMED_DATA 
0 487 BNEQ  481$ 
0470 489 BRW 542$ 
FF7C a) D4 0248C 481$: CLRL TEMP BUF 
56 B1 AD 01 EF 024 EXTZ2V #7, #1, INTMED_DATA+1, SIGN 


| § 1a 
voe-000. 1anSep-19be 12:16: 


:30 AX-11 Bliss-32 v4.0-74 
244 DEBUG. SRC IDBGCVTDX. BS, 1 
B1 AD 80 BF BA 024% BICB2 #128, INTMED_DATA+1 
4 AD 3C 02498 MOVZWL INTAED DATA, FLOAT_SCALE 
4 co C4 49F -16384TR4), FLOAT SCALE 
ag 4Ab VTBL  8(R9) 
CO 024a8 ADDL2 47, RO 
4 D1 026AB PL FUGA T_SCALE, R2 
A 14 O26AE 482$: BGTR 4 $ 
FF7C «CD 40 BF 88 0248 BISB2 #64, UF1 
50 B3 AD 6 : EF 02486 EXTZV #2, ne TATRED DATAS3, RO 
FF7C 36s CD 6 9 FO 48 INSV. R TEMP_BUF 1 
4 4 C3 024C¢ SUBL3 Fubar. gear, "27 FLOAT_SCALE 
03 1 4C7 483$:  BGTR 
FF47 31 02409 BRW 4698 
FF7C 836 CD 92 C6 4CC 4846$: DIVL2 #2, TEMP_BUFI 
4 07 02401 DECL séF OA AT_SCALE 
Ee 11 403 BRB 483$ ~ 
08 58 £8 02405 485$: BLBS  R8, 487$ 
50 FF7C gD E 02408 486$: MOVAB TEMP_BUF1, RO 
048D 31 02400 BRW 1 
B0 AD BS 0240 487%:  TSTw INTMED_DATA 
03 12 O24E BNEQ  488$ 
0496 31 024E BRW 
FF7C CD D4 024E8 488$: CLRL TEMP 
56 B1 AD 01 O7 F O24E EXTZV @# He "Twrmep DATA+1, SIGN 
B1 AD 80 8F BA 024F BICB2 #128, INTMED DATA+1 
54 BO AD 3C O24F MOVZ2WL INTMED DATAL “FLOAT SCALE 
54 co00 )3— 4 4 024FB MOVAB 51638 4TR4), FLOAT_SCALE 
3 08 A9 98 02500 CVTBL 8(R9), R2- 
5 OF CO 02504 ADDL2 #15, ke 
52 54 01 0 507 CMPL FLOAT_SCALE, R2 
52 14 0250A 489$: BGTR 494$ ~ 
FF7D CD 40 BF 88 0250C¢ BISB2 #64, TEMP_BUF1+1 
50 B2 AD OE 9¢ EF 0 6 EXTZV #2, #14, THYneD DATA+2, RO 
FF7C §=6CD O€ 00 FO 0251 INSV. RO, #0 EAP BUF 1 
54 2 54 «C3 0251F SUBL3 FLOAT SCALE, R2, FLOAT_SCALE 
03 14 025 3 490$:  BGTR 
FF4BR 31 025 BRW 4768 
FF7C =D 02 C6 0 3 8 491$:  DIVL2 TEMP eur 
54 D D DECL rc oat 
£2 11 0 52F BRB 49 ss 
63 58 €9 02531 492$:  BLBC 98$ 
BO AD 8B TSTW TNEMED DATA 
0 } 7 BNEQ 493$ 
O4A 9 BRW 562$ 
FF7C cD D4 C 493$:  CLRL i MP yur 
56 B1 AD 01 6 F 340 EXTZV INTMED DATA+1, SIGN 
B1 AD 80 8F BA 02546 BICB2 si5ae “inti At 
4 be AD 3C 02548 MOVZ2WL INT EDD DATA “FLOAT SCALE 
4 co00 3&4 4F MOVAB. 163 ATRS) » FLOAT_SCALE 
08 Ao 9 4 CVTBL 8(R9) 
1F OC 8 ADDL2 = #31, ma 
34 D1 02558 CMPL FLOAT_SCALE, R2 
3 15 0255E 4948: BLEQ  495$ 
O4AC HI BRW 565$ 
FF7F 36 CD 40 BF 8 63 495$: BISB2 #64, TEMP_BUFI+3 
FF7D CD 10 06 B2 AD F $ INSV _—_—INTMED DATRLD #6, #16, TEMP_BUFT+1 
50 B6 AD E 02 EF 1 EXTZ2v #2, #1%, INTMED_DATA+6, RO 
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14 
18-5¢ -1984 23:57:30 AX-11 Bliss-32 V4.0-742 
12-808- 198 $3itoses DEBUG. SRC IDBGCVTDX. B32 1 
OF 77 INSV. RO, #0, #14, TEMP_BUFI 
oF 99 4 tS 7 SUBL3 FLOAT SCALE, Re FLOAT_SCALE 
9 496$: BLEQ 4978 
FF7C =D 2 C6 DIVL2 #2, TEMP_BUFI 
4 D 9 DECL FLOAT SCALE 
‘5 11 BRB 496$ 
07 56 £9 497$: BLBC SIGN, 498$ 
FF7C = CD FF7C 36 CD cE MNEGL TEMP_BUF1, TEMP_BUF1 
34 «BE FF7C cp og 37 4988: MOVE TEMP BUF. aouTPuT 
5 F5 AD 3C 0259F 4998: MOVZWL DST_INFO*S, R2 
5 1 ce A3 MNEGL #1, 1 
¢ Ne BRB 50is 
A 1 EF 025A8 500$: EXTZV. 1, #1, INTMED_DATA, R1 
01 0 1 FO DAE INSV Ri, I. #1, a00TPUT 
50 2 F B4 501$:  AOBLSS R2, I. 506s 
OAID 31 02588 3048: BRW 649$ 
2C AE FD AD ¢ 388 03$: MOVZWL SRC_INFO+S, NO_DIGITS 
01 BO AD 2c AF 37 C0 CHPPG NO_BIGITS, INTMED_DATA, #1, @PACK_ZERO 
54 02 02 EF 0 SCA EXTZV #2, #2, R4, RG 
4 D7 025CF DECL 4 
04 15 02501 BLEG  504$ 
FF AD 01 88 02503 BISB2 #1, SRC_INFO+7 
30 AE D3 92507 504$:  TSTL CALE 
3C 13 O25DA BEQL 07$ 
cD BO AD 2c «AE «34 0250 MOVP § NO_DIGITS, INTMED DATA, TEMP_BUF1 
0 OC AE 3 8 5E4 BLBC CVT_ROUND FLAG, 505$ 
5 80 AD 9E 025E8 MOVAB INTMED DATA, R5 
54 C AE 9E 025EC MOVAB NO_DIGITS R4 
18 AE 95 0 3F0 MOVL #5~ 24(SP5 
55 BO AD 9E 025F6 505$: MOVAB  INTMED_DATA, RS 
54 2C AE SE O25FA MOVAB NO_DIGITS, R4 
18 AE D4 O25FE CLRL gatsP) 
53 18 AE 9E 02601 506$: MOVAB 24(SP), R3 
52 FF7C CD 9E 02605 MOVAB TEMP _BUFI, R2 
51 @ AE 9E 6 60A MOVAB NO DIGITS. R1 
50 0 AE 9E 0260) MOVAB SCALE, RO 
000000006 00 16 0 61 JSB DBGSCVT_ASHP_R1 
50 5A 3 618 507$: MOVZWL (R10), RO 
51 08 AA 61B CVTBL 8 (R105, R1 
50 51 CO 0261F ADDL2 R1, RO 
3¢ 69 6 : MOVZWL (R95), R2 
1 08 a9 6 CVTBL 8(R9S, RI 
5 21 CO 02629 ADDL2 RI, Re 
5 0 D1 0262Cc CMPL RO. R 
58 15 026eF BLEG }46=-«sS 16 
15 04 8 91 02631 CMPB 0 sa4 (SP), #21 
12 026 3 BNEQ 510$ 
15 6B 91 026 CMPB Os (R11), #21 
4D 12 0263A BNEQ 510$ 
5 BF AD E 026 MOVAB INTMED DATASI5, HIGH_NIBBLE_PTR 
3 C 0264 MOVZWL (RO), R 
" £§ oC ints Fete pace PTR, R2 
3 CE rk: MNEGL RD CoW_NIBBLE_PTR 
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14 
DBGCVTOX 14.38 =1984 23:57:30 AX-11 Bliss-32 v4.0-742 
witae tt 12-808-1 9c $3itoses DEBUG. SRC IDBGCVTDK.B 3251 
9 3C 0264¢ MOVZWL (R9), RO 
ze 99 30 1 wh rats EMUL #1, RO, #0, -<SP) 
5 E 654 DIV #2, (SP)+,°RO, RO 
p 6 9 STL OR 
B BNEG  508$ 
50 62 04 fF EXTZV #0, #4, (LOW_NIBBLE_PTR), RO 
62 9 é MOVE RO, (LOW NIBBLE_PTRY 
p 508$: DECL LOW_NIBBCE PTR 
50 B0 AD ‘ 6 V INTMED_ DATA, RO 
3 DI 026 CMPL LOW NIGBLE_PTR, RO 
4 19 026 BLSS 9$ 
62 94 6 CLRB ct _NIBBLE_PTR) 
F1 11 0267 RB $ 
000000006 00 DD 02674 509$: PUSHL DBGSGL_OPCODE_NAME 
1 DD 0267A PUSHL #1 
00028098 BF DD 0267 PUSHL #163995 
000000006 00 3 FB 0268 CALLS #3 LIBSSIGNAL 
16 04 68 BF 0268 5108: CASEB (R11), #4, #2 
002€ ooze 006¢ 00 68D 511$: WORD 513$-511$;- 
002€ 002£ 006C¢ 002€ 02695 15$-511$.- 
002€ OOgE 002€ 002£ 0 69D 12$-511$.- 
002F 002€ 002E 002€ 6A5 12$-511$.- 
002€ 002€ 002E 002£ 026A 512$-511$.- 
006C¢ 002E 002€ 02685 515$-511$.- 
512$-511$.- 
512$-511$.- 
512$-511$.- 
512$-511$.- 
31 $-511$.- 
12$-511$.- 
512$-511$.- 
512$-511$.- 
512$-511$.- 
512$-511$.- 
1 $-5118.- 
12$-511$.- 
12$-511$.- 
12$-511$.- 
12$-511$.- 
512$-511$.- 
515$-511$ 
00000000° Ff 9F 02688 512$: PUSHAB P.AKF 
0905 3! 6C1 BRW 647$ 
1c «BE OA BO AD 2c 7 026C4 5138:  CMPP4 _DIGITS, INTMED_DATA, #10, @LRGST_P_LU 
DC 026CC MOVPSL R 
58 58 02 EF 6ce EXTZV. #2, #2, _R8, RB 
1 FS 0260 SOBGTR R 
000000006 00 Dd 02606 PUSHL DBGSGL_OPCODE_NAME 
1 DD 0260C PUSHL 
000286A3 BF ODD 6DE PUS #165539 
000000006 00 3 FB 6E CALLS #3, LIBSSIGNAL 
0060 F £B 514$: BICPSW #224 
34 «BE BO AD C AE 6 6EF CVTPL DIGITS, INTMED_DATA, a0UTPUT 
044 6F BRW 4 
60 AE 2c AE BO AD 2c = AE. «O08 026F9 515%: CvTPS NO DIGITS, INTMED_DATA, NO_DIGITS, - 
2c Al 02702 Hi, NO_DIGITS, CLASS_S_DESC 
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14 
GCVTOX 1b-5¢ -1 57:3 AX-11 Bliss-32 V4.0-742 Page 155 
Mirae Fak saat ra tee gM ak 9 eS Ml 29¢ 39) 
SC AE 0 AE 9E 027 MOV TEMP_BUF2, CLASS_S_DESC+4 : 37 
ree fb HE BR the TEnecBurf PASSA : S18 
000000006 90 05 . 716 CALLS OTSSCVT_T_H : 
68 91 02718 CMPB crit), + 3740 
13 0271 BEQL 16$ : 
05 91 027 CMPB 3S s«(R11), #5 + 3741 
2 723 516%:  BNEQ 31 $ : 
045¢ 7 BRW 85$ : 
51 34 AE 9€ 02728 517$:  MOVAB OUTPUT, R1 + 3745 
0 FF ¢ p 9€ 027 MOV TEMP_BUF1, RO : 
000000006 | 731 518%: JSB DBGSCVT_CVTRHO_R1 : 
O89E 7 BRW 649$ : 3721) 
58 AE FD OAD 80 73a 5198: MOVW  SRC_INFO*S, CLASS_S_DESC : 3755) 
ta F9 so AD p 735 MOVL SRCTINEO+1, CLASS~S_DESC+4 : 3756) 
7E 5 BF 9A 02744 MOVZBL #857 -(SP) : 3758 | 
7E 4 AE CE 02748 EGL SCALE, -(SP) : 3757) 
7E bd 74C LAL.  =(SP) ; 
FF7C 3CD OF 0274 PUSHAB TEMP_BUF1 : 
3 AE OF 13 PUSHAB CLASS $ DESC : 
000000006 00 g FB 7 CALLS #5, OTSSCVT_T_H 3 
$f 0 pO 0275¢ MOVL RO, STAT ; 
1 6 E8 0275F LBS STATUS, 520$ : 3759 
000000006 DD 168 PUSHL DBGSGL_OPCODE_NAME ; | 
01 DD 027 PUSHL 3 
00028298 8F DD 76, PUSHL #164504 3 
000000006 00 03 FB 027 : CALLS #3, LIBSSIGNAL ; 
52 OA a9 01 EF 02777 5208: EXTZV #3. #1, 10(R9), R2 : 3780 
iC 52 €8 0277D BLBS = R2 : | 
11 Oc AE 9 02780 BLBC  CVf_ROUND_FLAG, 521$ : 3782) 
51 0 AE 9E 02784 MOVAB TEMP_BUF2> R1 : 3784) 
50 FF7C CD 9E 02788 MOVAB TEMP~BUF1. RO ; 
000000006 60 16 0 180 JSB DEGSEVT_CVTRHL_RI : 
07 11 0279 BRB $ ; 
60 AE FF7C  CD6AFD 0 795 5 1$:  CVTHL MP_BUF1, TEMP_BUF2 : 3786) 
29 01 68 8F 0279C 28 CASEB Ty, #1. #41 : 3788) 
0054 00D7 005D 0286 7A0 523$: WORD - : | 
0238 01C6 0151 0054 7A8 - ; 
0054 0054 0054 0054 780 - : 
0054 0054 0054 0054 7 5 : 
0054 0054 054 0054 7¢ 7 F 
0054 0054 0054 054 7¢ - ; 
0054 0054 0054 054 7D 5 F 
0054 0054 0054 O54 70 - : 
54 0054 286 4 7E - : 
0286 0054 0054 0054 7E8 - ; 
0286 0286 027F0 : 
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26 5 
QOOOOOFF 8F 60 . 
000000006 89 
000286A3 F 
000000006 00 3 
34 ~=«BBE 60 af 
7 
BO A 
0 
0008 
FF7C §3=—s CD 
56 B1 AD 01 ? 
B1 AD 80 F 
a4 OQ AD 
44 C000) = «C4 
5 08 Ag 
5 7 
: ; 
FF7C 8366s CD 40 8F 
ny Pe eo Ee 
aa boos. 
reas 
FF7C §3=—CD g 
4 
3 
6 5 
OOOOF F FF F 60 af 
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65539 
, LIBSSIGNAL 
MP_BUF2, aOUTPUT 


NZWwTW 
ww 
on 


TEMP BUF 1 

#7, 31, INTMED_DATA+1, SIGN 
#108, INTMED_DATA+1 
INTMED_DATA, FLOAT_SCALE 
-16384TR4), FLOAT_SCALE 
B(R9), R2 


a7, R 
FLOAT_SCALE, R2 
#64, TEMP_BUFI 

a. #6, IRTMED_DATA+3, RO 


#6, TEAP_BUF 
ELGAT SCALE, R2, FLOAT_SCALE 
530$ 


is 
#2, TEMP _BUFI 
FLOAT_SCALE 


R2, 534$ 
TEMP_BUF2, #65535 
DBGSGL_OPCODE_NAME 
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14 
DBECYTDX 1$-Sen-1984 25:87: 


30 AX-11 Bliss-32 V4.0-742 Page 157) 
44 DEBUG. SRCJDBGCVTDX.B32;1 ef 
1 0D A PUSHL #1 ; 
000286a3 Ht DD : USHL #165539 : 
000000906 00 3 F CALLS #3, LIBSSIGNAL : 
4 BE 60 AE e 3s: MOVW [Ep Bur » aOUTPUT : 3850) 
6C 9 $: BRB 43$ : 3844) 
B0 AD e AO 534$: TST NTMED_DATA ; 3857| 
0 A BNEQ oH : 
0006 3 A BRW % : 
FF7C : D4 535$:  CLRL TEMP BUF 1 : 862 
56 B1 AD 01 F 028A EXTZV #7, #1, INTMED_DATA+1, SIGN : 386 
81 AD 80 8F 8A 0288 BICB2 #108, INTMED_DATA+1 + 3864 
24 80 AD 3C 0288 MOVZWL INTMED_DATA, FLOAT SCALE : 3865 
4 co C4 3 BB MOVAB  -16384TR4), FLOAT_SCALE : 
5 08 Ad 9 C CVTBL 8(R9), R2 + 3866 
5 OF rai} He ADDL2 #15, R2 F 
G 4 D1 028C¢ CMPL FLOAT SCALE. R2 : 
64 14 O28CA 536$: BGTR 545$ : 
FF7D CD 40 8F 88 028C BISB2 #64, TEMP_BUF1+1 : 3871 
50 B2 AD OE 98 EF 028) EXTZV #2, #14, INTMED DATA+2, RO 3 3872 
FF7C 3 CD E 00 FO 928D INSV. RO, #0, #14, U ; 
4 52 54 C3 O280F SUBL3 ELOAT SCALE, R2, FLOAT_SCALE : 3873 
03 14 02863 537$: BGTR  538$ : 3874 
FB88 31 02865 BRW 476$ : 
FF7C «CD 02 (6 02868 538$: DIVL2 #2, TEMP_BUF1 + 3876 
54 07 O028ED DECL FLOAT SCALE : 3877 
E 11 OOBEF BRB 537$ : 3874 
10 5 34 028F1 539$: BLBS 2, 541$ : 3891 
50 60 AE SE 028F4 MOVAB TEMP _BUF2, RO : 3893 
51 34 AE DO 028F8 540$: MOVL OUTPOT, Ri : 
000000006 00 16 O28FC JSB DBGSCVT_CVTLB_R1 : 
7D 11 02902 BRB 554$ : 
BO AD B85 02904 541$:  TSTw NTMED_DATA : 3899 
05 12 02907 BNEQ 44 : 
34 BE 94 0 909 5428: CLRB § @OUTPUT : 3901 
73 11 0290C 543$:  68RB 4 F 
FF7C CD D4 0290E 544$: CLRL TEMP BUF 1 : 3904 
56 Bl AD 01 7 €F 0291 EXTZV #7, #1, INTMED_DATA+1, SIGN : 3905 
B1 AD 80 8F 8A 0291 BICB2 #128, INTMED_DATA+1 : 3906 
54 BO AD 3C 02910 MOVZWL INTHED DATA, FLOAT_SCALE : 3907 
54 C000 «C4 COOE (02921 MOVAB -16384TR4), FLOAT_SCALE : 
52 08 Ad 98 02926 CVTBL 8(R9), R2 : 3908 
52 07 CO 0292A ADDL2 #7, R : 
52 4 01 02920 CMPL = FLOAT_SCALE, R2 F 
3 14 02930 545$:  BGTR $ : 
FF7C CD 40 8F 88 029 BISB2 #64, TEMP_BUF1 : 3915 
50 B3 AD 06 : EF 029 EXTZV a2 #6, IRTMED DATA+3, RO : 3914 
FF7C = CD 6 09 FO 0293E INSV. RO, #0. #6, TEMP_BUF1 ; 
4 4 C3 02945 SUBL3 FLOAT_SCALE, R2,.~FLOAT_SCALE : 3915 
09 15 02949 546%:  BLEG : 3916 
FF7C CD 02 cé 94 DIVL2 #2, TEMP_BUF1 : 3918 
4 D7 0295 DECL FLOAT_SCALE : 3919 
F5 11 029 BRB 46$ : 3916 
07 56 £9 02954 547$: BLBC SIGN, 549$ : 3921 
FF7C 86 CD FF7C «CD a3 957 548$: MNEGL TEMP.BUF1, TEMP_BUF1 : 
34 BE FF7C = CD oF 49$:  MOVB TEMP-BUF I. aOUTPUT : 39 
18 11 029 BRB 554$ : 37 
10 52 £8 02966 550$: BLBS  R2, 552$ : 39 
| 


~~ 


" 
| 
| 


15-Sep-19 57:3 AX-11 Bliss-32 V4.0-742 Page 158 
1aneep=18he ito DEBUG. SRCIOBGCVIDK BS2.1 7°29) | 
50 0 AE 9E 02969 MOV TEMP_BUF2, RO : 3935) 
.- & $¢0 551$: MOVL OUTPOT, R : 
atte 06 f A Js8 BgScvi_CVTLW_Rt : | 
80 AD 83 979 552$:  TSTW NTMED_DATA : soe] 
0 97¢ BNEQ 55$ : 
34 BE 8 ave 3$: CLAW TPUT + 3943 
64 11 029 4$: BRB ; : 
FF7C ; D4 029 3 $$:  CLRL TEMP uF + 39% 
56 B1 AD 01 F 029 EXTZ2v #7, B INTMED DATA+I, SIGN + 394 
Bl AD 80 8F 8A 029 BICB2 #128 {NT Atl : 3948 
24 80 AD 3C 0299: MOVZWL see DATAS pert SCALE : 3949 
4 co C4 9 MOV “153 4TR4), FLOAT_SCALE ; 
5 08 AD 98 02998 CVTBL 8(R9), R2 + 3950 
5 F CO 0299F ADDL2 #15, R2 : 
5 4 D1 029A he CMPL sO ss _SCALE, R2 : 
8 14 029A5 556$: GTR : 
FF7D CD 40 8F 88 029A7 BISB2 #64, TEMP_BUFI+1 + 3955 
50 B2 AD OE 2 EF 0 QAD EXTZV #2, #14, "TNTRED DATA+2, RO + 3956 
FF7C = CD OE 00 FO 0 9B INSV. R TEMP _BU : 
54 52 54 C3 029BA SUBL3 FLOAT OS CALE. R2, FLOAT_SCALE : 3957 
09 15 029BE 557$: LEG 8$ ~ : 3958 
FF7C «CD 02 C6 029¢ DIVL2 #2, TEMP_BUF1 : 3960 
4 D7 029¢ DECL FLOAT _SCALE + 3961 
F511 0 9C7 BRB 557 : 3958 
07 56 £9 029C9 558$: BLBC IGN, 560$ + 3963 
FF7C = CD FF7C CD ce 0 aC¢ 2598: MNEGL TEMP.BUF1, TEMP_BUF1 F 
34 BE FF7C cp BO 02903 560$: mov TEMP” “BUF1, @0UTPUT + 3964 
9 11 02909 BRB 570 : 3788 
71 52 £9 0290B 561$: LBC 2, 5 : 3975 
FF7C CD 85 0 ope TSTW  TEMP_BUF1 : 3983 
05 12 029€ BNEQ  564$ : 
34 BE 04 02964 5628: CLRL § @OUTPUT : 3985 
6B 11 029€7 26 $: BRB 570$ : 
60 AE D4 O29E9 64$:  CLRL TEMP BU UF 2 : 3988 
56 FF7D CD 01 07 EF 029E EXTZV TEMP opyeitt. SIGN : 3989 
FF7D CD 80 8F 8A 029F BICB2 Athy "te MP_BOF1+1 ; 3990 
54 FF7C «6D 0 oF MOVZWL TEMP ‘BUF “ProAT SCALE : 3991 
54 C000 = ¢4 44 OF MOVAB ~iesBetReS, FLOAT_SCALE ; 
52 08 Ad 98 O2A0 CVTB : 3992 
3g 1F CO O2A07 ADDL . F 
5 54 D1 O2A0A CMPL FLOAT SCALE, R2 : 
11 15 O2A BLEO 6$ : 
000000006 if pp AOE 565$: PUSHL DBGSGL_OPCODE_NAME : 3994 
000286A3 8F DD At PUSHL #165539 ; 
0581 1 O2A1 BRW 648$ F 
63 AE 40 SF BR 02A20 S668: BISB2 #64, TEMP 7 : 997 | 
61 AE 10 06 FF7E CD FO O2A INSV ne BUF IS Ss° #16, TEMP_BUF2+1 : 3998 
as, 30 82 AD OE ; EF A EXTZV ‘ WG, TE ati Ap BUF I +6 +6, RO : 3999 
g 99 4 c3 A SUBL3 FLOAT. SCALE. Nl FLOAT_SCALE : 4000 
: A3D 567$:  BLEG 5 4 > 4001 
60 AE C6 ARF DIVL2 TEMP_BUF 2 + 4003 
4 D7 O2A4 DECL aT. SCALE 3 4004 
Fé 11 OOA4 BRB 5 > 4001 
05 56 £9 02A47 568$: BLBC SIGN, 569$ + 4006 
i 
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GCVTOX 15-Sep-1984 23:57:30 AX-11 Bliss-32 V4.0-742 Page 160. 
voe 14 b=8ep-1984 $337 6:44 DEBUG. SRCIDB DBGCVTDX.832;1 9° 29) 
DC 02808 MOVPSL R : 
50 50 02 EF 0280 EXTZV. #2, 15° RO ; 
F4 0281 SOBGEQ R : 
000000006 p DD Bt PUSHL pa sit “SPcove _NAME : | 
00028643 BF ODD B10 PUSHL 4165539 : | 
000000006 00 3 FB B CALLS +3 LIBSSIGNAL : 
O0EO 8F B89 0OB2A 581$: BICPSW #234 : 4063, 
09 C AE €9 028 BLBC vt ROUND_FLAG, 582$ + 4043. 
34 BE FF7C nolt 68 8 CVTROL | ne BUF1> OUTPUT : 4045 | 
34 BE FF7C cD 6A 02838 5828: CVTDL TEMP_BUF1, @OUTPUT + 4047) 
00EO §68F «BB 02841 $: BISPSW # 24 ; 4049 | 
4C 11 02845 BRB 587$ : 4030 
58 AE FD AD BO 02B47 584%: MOVW SRC_INFO*S, CLASS_S_DESC + 4054) 
5c AE F9 AD DO 6 B4C MOVL SRCTINEOS, CLASS~S_DESC+4 + 4055. 
7E 55 8F 9A 02851 MOVZBL #857 -(SP) > 4057 | 
7E 34 AE CE 02855 EGL SCALE, -(SP) ; 4056 | 
7E D4 02859 CLRL.  =(SP) : 
FF7C §6©CD «OOF 02858 PUSHAB TEMP_BUF1 : 
68 AE OF O2B5F PUSHAB CLASS S_DE : 
000000006 00 92 FB b¢868 CALLS 4 of ScvT_TH : 
15 6E £8 $sbee BLBS STATUS, 585$ : 4058. 
000000006 00 DD O2B6F PUSHL DeGSGL_ OPCODE_NAME : 
00028298 8F DD 02877 PUSHL #164504 ; 
000000006 00 03 FB 02B7D CALLS #3, LIBSSIGNAL ; 
50 FF7C }3=CD i 02884 585$: MOVAB TEMP BUFI, RO : 4059 
5 4 AE D 03889 586$: MOVL  OUTPOT, R : 
000000006 09 16 0 BBD JSB DBGSCVT_CVTRHQ_R1 : 
0442 31 02893 587$:  BRW 649$ : 
58 04 02896 588$: CLRL  SIGN-FLAG > 4063 | 
52 34 AE DO 02898 MOVL OUTPOT, : 4073, 
08 A2 7C 02B9C CLRO B(RQ) + 4074 
04 A2 D4 02B9F CLRL © 4(R2) : 4075 
62 FQ BD 9A O2BA2 MOVZBL @SRC_INFO+1, (R2) ; 4076 
62 30 £2 O2BA6 SUBL2 #48, ~(R2) F | 
02 18 O2BA9 BGEG 589% + 4081 
0s 11 OgBAB BRB 590$ : 
09 62 D1 O2PAD 589$: CMPL (R2), #9 ; 
2F 15 02880 BLEQ  592$ ; 
FFFFFFFD 8F $2 pi BB 590$: CPL (Re), 4-3 ; 4083 
F9—soAD 0g BBB INCL § SRC_INFO+1 + 4086 | 
FD AD 2 BBE DECW  SRC~INFO+S : 4087. 
6 F9 BD 9A 02BC1 mOVZBL @SRC_INFO*1, (R2) : 4088 
6 0 3 BCS SUBL #48," (R2) ; 
5 01 00 02BC8 MOVL #1, SIGN_FLAG : 4090. 
14 11 028CB BRB 593s : 408 
F9 AD OD O2BCD 591$: PUSHL SRC_INFO+1 : 409 
01 DD 02BD PUSHL #1 : 
02 DD 02BD2 PUSHL : : 
00028AAA BF DD 02BD4 PUSHL 66570 : 
000000006 00 4 FB OOBDA CALLS #4 1 1B$S JGNAL : 
6 FD AD 3C 0OBE1 5928:  MOVZ2WL SRC_INFO*5, R6 > 410 
53 D4 O2BES CLRL  CURRENT_CHAR_NUM > 410 


—-—y 


W—Oroe 


15 
GCVTDX 1$-Sep-19 4 23:57:30 AX-11 Bliss-32 V4.0-762 Page 161 
mite tts 12-80-1984 $3: ioses DEBUG. SRCIDBGCVTDK..B32:1 9° 29) 
3 11 02BE7 BRB 597$ : 
50 DO O2BE9 593$: MOVL 2, RO t 4102 
000000096 06 16 BEC JSB8 DBGSCVT SCALE OU_UP_BY_10_R1 : 
54 F9 BD43S 9A O2BF MOVZBL @SRC_INFO+1CCORRENT_CHAR_RUMI, - 3 4104 
CURRENT CHARACTER : 
54 ; & BF? SUBL2 #48, CURRENT_CHARACTER : 
1 BFA BGEG ©: 94 : 4110 
Q 11 QOBFC BRB 595$ : 
09 4 01 BFE 594$:  CMPL CURRENT CHARACTER, #9 + 4111 
13 15 6 C0 BLEG 6$ : 
F9 BD43 GF O2C 3 595$: PUSHAB @SRC_INFO+1CCURRENT_CHAR_NUM] + 4113 
04 DD C0 PUSHL #1 : 
2 DD 02C09 PUSHL #2 : 
00028AAA ar DD 02COB PUSHL #166 : 
000000006 00 4 FB 02C11 CALLS #4, LIBSSIGNAL ; 
$¢ 54 OC 0 C18 596$: ADDL2 CURRENT CHARACTER, (R2) + 411 
CA 56 F2 02C1B 597$:  AOBLSS R6, CURRENT CHAR_NUM, 593$ + 410 
2F 58 E O2CiF BLBC SIGN FL 98$ + 412 
50 AE 7C 02 : CLRO = OCTAQORD_ZERO+8 : 412 
48 AE 76 02¢ CLRQ OCTAWORD~ZERO : 41 
62 48 * 62 C3 02C28 SUBL3 (R2), OCTAWORD_ZERO, (R2) : 413 
5 4C AE DO 0 C2D MOVL § OCTAWORD_ZERO,~RO : 
50 04 Ad 09 0231 SBWC : 
04 Ag 50 DO 02C35 MOVL RO, 4(R2) ; 
5 50 AE 00 02¢39 MOVL  OCTAWORD_ZERO, RO : 
50 08 A2 09 02C3D SBWC 30s (R2), RO ; 
08 A2 50 00 02C41 MOVL RO, 8(R2) : 
50 54 AE DO 0245 MOVL  OCTAWORD_ZERO, RO F 
50 0c A2 09 02649 SBWC 3=3Ss-«12(R2), RO F 
OC A2 50 DO 0 C4D MOVL RO, 12(R2) ; 
63 11 02C51 598$: BRB 603s + 4030) 
58 OA FD AD BO 02C53 599$: MOVW  SRC_INFO+5, CLASS_S_DESC + 4145 | 
Sc OA F9 =AD DO 02658 MOVL SRC" INFO*1, CLASS_S“DESC +4 + 4146 
03 18 6B BF 02C5D CASEB (RIT), #27. # + 4147. 
0057 0011 0057 0011 02€61 600$:  .WORD 601$-600$,- ; 
604$-600$.- : 
601$-600$.- ; 
604$-600$ : 
00000000" EF 9F 02C69 PUSHAB P.AKI : 4185. 
0357 31 O2cér BRW 647$ : 
7E 55 BF 9A 02C72 601%:  MOVZBL #85, -(SP) + 415 
7E 34 AE CE 0 C76 MNEGL SCALE, -(SP) : 415 
7E D4 O2C7A CLRL (SP) : 
FF7C }386CD OOF O2Cc7C PUSHAB TEMP BUF1 : 
6 AE OF C80 PUSHAB CLASS S DESC : 
000000006 00 Q FB 02C8 CALLS #5, OTSSCVT_T_G ; 
6 0 DO O2CBA MOVL RO, STATUS : 
1 6E E8 O2C8D BLBS STATUS, 602$ + 4154 
000000006 DD 02690 PUSHL  DBGSGL_OPCODE_NAME ; 
1 0D C96 PUSHL : 
00028298 BF DD 02C9 PUSHL #164504 : 
000000006 90 3 FB CoE CALLS #3, LIBSSIGNAL : | 
0 34 AE p CAS 602$: MOVL OUTPUT, > 4155 
60 FF7C CD 70 O2CA9 MOV TEMP BUF1. (RO) : | 
1D 68 91 CAE CMPBs«(R113, #29 : 4157 
4E 12 02CB BNEQ ; 
08 ad 7C O2cB? CLROQ (RO) : 4164. 


13 iss-32 V4.0-742 Page 162 
1b-Sep-1 4 :57:30 AX-11 Bliss " a 38 
Obes oo” 12-28 08- 1382 ( 16:44 DEBUG. SRC IDBGCVTDK..B32 a. 
: . : 4172 
49 11 02CB6 603$: BRB 606 : 4 
HOR RBIS Bie te #i: 
sn =(SP) : 
a ae ; 
ait’ 4 9F OOCC PUSHAB CLASS S_DES 
< 08 cc CALLS s. OTSSCVT_T_H 3 
etener ef 30 of £oe BLBS Rr aTOS. toss + 4173 
; 06 FD OScD BUSH DBGSGL_OPCODE _NAME 
memeuin 1 DD pe PUSHL 506 
aw Fe £DF sti: #3° 1 SBSSIGNAL Pes 
000000006 0 3 FB OOCE _ GALLS aS, 
38 ™ 15 6 1 hemes MOVC3 #16, TEMP BUFI, (RB) pot 
1 — 4 } 10 cfs CMPB (R11), #30 
RHE RRs iiss, oo. as, t00 a 
~ 2 3 10 oe 501 649$ : 2187 
e 31 aH g09s: one (R11), #2 ; 419 
“ : 610$ ; 
12 13 02007 BEQL ; 
B (R11), #14 
OE 6B 91 02009 CMP 
a a ee ! 
68 1 BGEQU 609$ ; 
0252 4 6 Bt 608$:  BRW 643$ ion ; | 
27 6B 91 02016 609$: CPB (Ril), ‘One, 
FB 1A 02019 BGT U 6085 | 
vo He gage ove eae As 
OS BO Oo BOV gare ASS_S_DESC : 4198 
eo 5 AD ty 6 8 — MOVE SReCINFOet CLASS S-DESC +4 ; 4199 
"A SERRE aie Gey, £3 
7E SCALE | 
ie 88 4 ; SUSHAB TERP BUF 1 ; 
re OP St 6 D PUSHAB CLASS S_DESC : 
- Os 4 D CALLS *s, OTSSCVT_T_H : | 
000000006 00 05 FB : CALLS #3, OTSSCV a 
} 30 pe re BLBS STATUS, 612$ ; | 
0198 5 D4B BRW é 3 nie when ; 05 
Sr 0908) mOVAB TERA. BUF “CEASS_S_DESC+4 : $206 
60 AD Bi o8 CMPW =s-dDST_INFO#5, #9 ; | 
9 DO 05D Seve” $3 DIGITS_IN_FRACT ; 4209 
5 il ft BRB edd pm E eons 
FS AD 3C 02062 6138: ROVZuL DST_IN 0+5, 
3 5 D6 CMPL RO, #33 
3 ¥ O5pee BLEO its pr 
AI O bee 6148: ROVE RO, DIGITS, IN_FRACT  asea) 
074 615$: PUSHL ; 
% ee 076 CLRQ. =(SP) 


er eee ee ned ee eee 163 
15 ery “11 Bliss-32 v4.0-742 Page 3; 
pe ees 18-Sen-1984 WBitoies — EdeuG.sacdoaccvYDxK asset = 
GCVTDX : 
-000 GITS_IN_FRACT : 
ve 27 BO genre PUSHAB CLASS, S_DESC : 
SF peor PUSHAB TEMP BU : 
ke | eo 137 CALLS #6, FORSCVT_H_TE Bees 
000000006 00 6 FB O¢b ROVE” RO” STATUS = 42 
6 EY O20 BLBC STATUS, 616 
13 11 O¢d + PUSHAB BLAKd : | 
00000000" FF 9F a ors: BUSH ot aves ; | 
00028362 8F Bp 4 CALLS a LIBSSIGNAL owe 2 4214 
0 ag 200000006 99 Q $8 OBDAS 6178: SKBC #38 #50, TEMP_ | 
. ; | 
Re SE OSDAE 6188: OVA TEMP BUF2, RO pes 
20 o/s cS DBD SUeL3.  Buf_OFFSET.~#50° FINAL_LEN g $313 | 
24 32 33 69 0 +94 a FINAL LEN, “OUTPOT_STR_CEN ; i228 
14 AE 1 O2DBE CMPB (R11), : 
* 4 12 og0c} ROVY. FINAL_LEN, CLASS_S_DESC ¢ 1358 | 
:. 81 C1 ospc? ADDLS. i GOTPUT . CLASS_S_DESC+4 5 4226, 
ce 35 Mh SETH RVAS TASSaSrPERGe Sse, es 
51 60 A D06 MOVL FINA LEN, ; | 
© roooo000 86 84 b5n08 JS8_LIBSSTOPY -R_DX6 Fo 
6E 50 do oS pe8 CMPL STATUS, #LIBS_STRTRU : | 
cecil OO A eg Be, oy 
BGSGL_OPCODE_ : | 
000000006 FB ganrg MH Flee Beets a 
000286AB 8F DD O2DdF5 chee ase L1BS$ J GNAL : 4228. 
00006 00 Be EB O9E0e 6208: Stas” STATUS’ eoes pep 
et. cE 5b geen S308: Flew, STATUE’ Oeee = 
000000906 90 g #0 Q EOE 6228: Kove FINAL LEN, aou : 4318 | 
27 8B 91 OSES 6238: cma (RIT), #39 | 
os i E13 Bey $088 CLASS. $_DESC i Hid 
8 AE OPS BO OSEIC 6248: MOVE. QUTPUT. CLASS. s DESC 4 : 4538 
car S ME BD dees? MOVAB CLA SC : | 
et) oe we oe 1, 
51 E MOVL = FIN iy ; | 
6€ ze BY Osea, CMPL STATUS, #LIBS_STRTRU : | 
womens HS EL RRL Ba ‘cto ee : 
G : 
sa 1 BD Rccee PUSH #165547 | 
000286aB BF OD OZE4R CALLS #3, LIBSSIGNAL : 4240 
00 : BLBS ’ : 
cepa eR GES ge: BL HAE 


5C 


50 


000000006 


000000006 


000000006 


000000006 
as 


vw 
oc 


000000006 


000000006 


000000006 


000000006 


55 


oo wr Pr FP 
am O-mm Om 


. 2 
th 
000000006 ? 
00028298 F 
0152 

6A 

68 

40 

A 

1 

58 AE 
5A 
000000006 28 
0 

6 

9 
000000006 4 
000286AB ar 
03 

6E 

6E 

01 

6A 

0091 

68 

51 

6A 

34 AE 

38 = AE 

5A 

000000006 9° 
0 

6 

? 

000000006 a} 
000286A8 F 
03 

é 
» # 
a8 


000000006 


F 15 
15-Sep-1984 23:57 
12288b- 1882 93:46 

F £50 CALL 
cf +e 627$: ADDL 
4 02E69 CLRB 
11 O2E6C 628$: BRB 
DD EGF 629$: PUSHL 
DD O2E PUSHL 
D 02E76 PUSHL 
1 O2E7C Rw 
C O2E7F 630$:  MOVZWL 
1 02683 CMPB 
is E BNEQ 
8 E MOVW 
gt E ADDL3 
F E9 MOV 
1) E MOVL 
16 O2E JSB 
DO O2E9F MOVL 
D1 BAe CMPL 
13 O2EA BEQL 
11 EAB BRB 
DD EAD 631$ PUSHL 
i) EB PUSHL 
DD 02EB5 PUSHL 
FB O2EB CALLS 
EB O2EC2 6328: BLBS 
DD O2EC PUSHL 
eB EC7 CALLS 
9 ECE 633$: MOVB 
31 O2ED2 634$: BRW 
91 EDS 635$: CMPB 
is ED8 BNEQ 
B EDA MOVW 
DO O2ED MOVL 
4 8 EE MOVAB 
1) EE MOVL 
16 O2EEA JSB 
DO O2EFO MOVL 
01 EF3 CMPL 
13 O2EFA BEQL 
11 EFC BRB 
DD O2ZEFE 636$: PUSHL 
DD 4 PUSHL 
Rie Bi 
£8 FO 6373: LBS 
DOD F16 PUSHL 
FB F18 CALLS 
f FIF 638%:  MOVZWL 
F22 ADDL2 
4 02F CLRB 
1 F BRW 
DO O2F2B 639%:  MOVL 
90 F . MOVL 
8 f JSB 
0 F537 MOVL 
D1 FSA CMPL 
13 02641 BEQL 


: 9 AXx-11 H} 


Liss-32 V4.0-742 
DEBUG. SRCJDBGCVTDX.832;1 
1, LIBSSIGNAL 
ufPUT, FINAL_LEN, RO 
ny 
BGSGL_OPCODE_NAME 


ww 
i=) 
~ 


ypPuT STR_LEN 


OMCs 


n“ 
b pero ad “oor !-~ 


, CLAS DESC 

UTPUT “Class S_S_DESC+4 
$_DESC, 

RO” 

coer DXDX6 

s VLIBS. STRTRU 


- O 
oe ff 
C 
P 


Wor: —-ui——" @O_— a 


ee: 
trios. @OUTPUT 


642$ 
(R11), #39 


(R10) wet S_DESC 
Lass. S_DESC +4 


RO, STATUS 
ay #L1B$_STRTRU 
637$ 


554 47 
#3 Weed ${GNAL 


#1, LIBSSIGNAL 
(R10), RO 
ouTPUT, RO 
(RO) 


R16, RO 

L B§scopy DXDX6 
STATUS, #LIBS_STRTRU 
640$ 
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SIG : REF VECTOR, 
MECH : REF VECTOR; 
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vOe000 12-8681 98¢ $3: 3G ide DEBUG. SRC IDBGCVTDK.B32s1 9° 585 
4 : ROUTINE CVT_HANDLER (SIG, MECH) = 
§ é ; FUNCTIONAL DESCRIPTION: 
60 4 i This handler will resignal opcode reserved to digital; it 
61 4 : otherwise translates system service signals to debug 
$¢ 2 : error codes and resignals. 
64 é FORMAL PARAMETERS: 
$8 & i $1G_rr.r A counted vector of parameters describing the condition. 
6 ? MECA.rr.r A counted vector of parameters from CHF. 
65 4 i IMPLICIT INPUTS: 
70 4 : 
71 4 ; NONE 
Lf & : 
7 4 ! IMPLICIT OUTPUTS: 
74 4 } 
75 4 ! NONE 
7 ht} : 
A : 3 : COMPLETION STATUS: (or ROUTINE VALUE:) 
79 t38 i SS$_RESIGNAL when apes reserved (vu digital exception. Any other case 
a Size will result in a debug condition being signalled. 
8 438 i SIDE EFFECTS: 
Hy rt ; 
4388 : NONE 
4389 ‘ 
& BEGIN 
4 MAP 
4 
4 
4 
4 
4 


‘Translate error code if this is not an UNWIND, or opcode reserved to digital. 
‘Otherwise, signal debug error. 


if (LIBSMATCH_COND (SIG C1}, BREF (SS$_UNWIND), ZREF (SSS$_OPCDEC))) GTR O 
RETURN (SS$_RESIGNAL); 


ooo 


‘Translate all numeric exceptions to debug's facility code. 
‘Also, translate SS$_ROPRAND to D®G$_ROPRANDF. 


SELECTONE .$1GC1) OF 


SS$_INTOVF): 

SIGNAL {O68 _LINTOW . 1, .DBGSGL_OPCODE _NAME) ; 
CSS$_DECOVF J: 

GNAL (DBG$_DECOVF, 1, .DBGSGL_OPCODE_NAME) ; 

CSSS_FLTOVF S53 FU TOVE oF}: 

L (DBGS"FLTOVE > - »DBGSGL_OPCODE _NAME) ; 

soe st ae SSS_FLTUND_FJ: 
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» SAVE RESULT = 
SIGNAC (DBGS$_IF 


ND; 
CSS$_ROPRAND): 
EGIN 
IF .DECIMAL_CONVERT 

THEN 
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0: 
LTUND, 1, .DBGSGL_OPCODE_NAME); 


SIGNAL (DBG$_DECROPRAND) 
SIGNAL (DBGS_ROPRANDF, 1, .DBGSGL_OPCODE_NAME); 


ELSE 


ND 
COTHERWISE): 


RETURN (SS$_RESIGNAL); 


SETUNWIND(); 
RETURN 0; 
END; 
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! End of CVT_HANDLER 


Seve R2,R3,R4 


LIB$SI 2 R4 
DBGSGL_OPCODE_NAME, R3 


r 
#1084, 4(SP) 
#2336, 4(SP) 

4(SP) 

SIG, R2 

4(R2) 

+f LIBSMATCH_COND 
itr2), 

R2, 4488 
DBGSGL_OPCODE_NAME 
4165539 

9$ 

R2, #1188 
DBGS$GL_OPCODE_NAME 
#166458 

9$ 

R2, #1164 

R , #1204 
DBGSGL_OPCODE_NAME 


#166402 
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Routine Base: 
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49 11 } 
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8F » 
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08 444 000° EF €E B 
0028A4 F DD 0008 
64 1 FB OO0OBD 
3 11 000C 
DD 000C2 8$: 
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: » #1180 

Re. #1220 

@SAVE RESULT 

beGSGL_ OPCODE _NAME 

$16 65531 

$ ne 

; jMAt CONVERT, 8$ 
1, ¢ LIBSSIGNAL 


R 
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D 
] 
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DBGSGL_OPCODE _NAME 


B 
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> De ee 
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#166410 
" LIBSSIGNAL 
#2328, RO 
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#2, SYSSUNWIND 
RO 
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1278 08-198e $3330 2 DEBUG. SRC IJDBGCVTDX.832;1 
ROUTINE FIND _CVT_PATH (SOURCE, DESTINATION, SRC_INFO, DST_INFO, CVT_PATH) = 


FUNCTION 
This routine is called by DBGSCVT_DX_DX, and has the following four 
functions: 


a. It finds any errors concerning the class and data type of the source 
and destination descriptors. These errors can be invalid class, 
invalid data type, or invalid combination of a class and data type. 
a sem anee tell which descriptors are supported by this 

u , 


ciass dt ype --> class,dtype. These paths are given names such 
T_DEC, which l 
(categories defined later). 


c. Converts the source data to an intermediate data. The ptcatesy 
used to select the appropriate intermediate data is explained later. 


d. Puts whatever information is needed about the source and destination 
descriptor in two structures pessee by DBGSCVT_DX_DX. These 
two structures, SRC_INFO and DST_INFO, contain the kind of 
information that can only be visible when the class and data 
type of the source and destination descriptors are being 
manipulated. These two structures can be expanded to contain 
more information as new class, and dta types may require it. 
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: This routine is comprised of a Deterministic Finite Automaton, defined 
as a 5 tuple: 
i 
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i 
i 
i 
i 
i 
i 
Hn 
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i 


States : There is a state for each CLASS, and CLASS, DATA TYPE 
combination. 

Alphabet : Classes and Data eee: 

Mappings : M(CLASS_S , DTYPE_B) := CLASS_S_DTYPE_B 
M(CLASS_D > OTYPE_.W) := error © °°” 


Start state : 

Final states : ALL possible combinations of CLASS, DTYPE. 
Some of these combinations are allowed, others 
are not. The error combinations are denoted by 
negative numbers as states. 


MAINTENANCE OF THIS ROUTINE: 


This routine knows about all classes and data types of Appendix C v8.3. 


(You may want to update the above line everytime a change is made) 


t 
To make an already existing CLASS, DATA TYPE combination a valid one, as 
opposed to an error you must: 
- Insert he symbol for that data type in DTYPE_TABLE in place of the 
error state. 
. Define a FINAL_STATE for this combination. 
. Give it an action routine. 
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12-88-1982 93:30:38 DEBUG. SRCIDBGCVTD 
To add a new data tyes Ou must: 

Increment K_MAX_DATA_TYPES. 


¢- Set K_MAX_DTYPE-STA fo value of the new data type. 
- Does any tate need to be changed? 


b. KILRGFINSTA 
c. K $ 


d. K_BOTTOM_SD 
4. Define a few FINAL_STATE. 
5. Each category in DTYPE_TABLE must have a new entry for the data type. 
Note that the position (starting at 0) of each entry in each category is equivalent 
to the data type value. 
Add the new lable into the action routines CASE statement and 
the sub-CASE statements in DBGSCVT_DX_DX will need to be modified to 
include this new data type. 


6 


To add a new class you must: 

Increment K_MAX_CLASSES 

Set K_MAX_CCASS"STA to value of the new class. 

Increment K_ACTOAL_CLASSES. 

Make a new R_STATEX_CLASS_y, where x is class value and y is the 
symbol of the class. 

Make a mew FINAL_STATE. - 

Add a new category to the STATES structure at the end, with a index 
value of one higher than the Last category. 

Make a new entry in CLASS_T ‘ 

Make a new category in DTYPE_TABLE. 


Make a new lable in the action routine CASE statement. 


Con Ou Sw 


CALLING SEQUENCE: 
ret_status.wlc.v = FIND_CVT_PATH (SOURCE.rx.dx, 
DESTINATION. rx.dx, 
SRC_INFO.wr.r, 
DST_INFO.wr.r, 
CVT_PATH.wlu.r) 


FORMAL PARAMETERS: 
SOURC Address of source descriptor passed to DBGSCVT_DX DX. 
DESTINATION Address of destination coocr lator peseos to DBGSCVT_DX_Dx. 
SRC_INFO Address of a record in DBGSCVI_DX_DX. Source information goes here. 


DST-INFO Address of a record in DBGSCVT DX'DX. Destination info goes here. 
CVT_PATH Address of a longword in DBGSCVT Bx DX. This code will determine which 
CASE Label is taken in DBGSCVT_DR_DR. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: (or ROUTINE VALUE:) 
K_UNSCLAROU : =] Unsupported CLASS by routine. 
K_UNSDTYROU 2 *§ Unsupported DTYPE by routine. 
K_UNSDESROU : +3 Unsupported descriptor by routine. 
K_UNSDESSTA : ~4 Unsupported cence ipter by standard. 
K_UNSCLASTA : =5 Unsupported CLASS by standard. 
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K_UNSDTYSTA : =$ Yneupgor tes DTYPE by standard. 
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2 7 
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49 ; 
444 0 ; K_INVNBDS Inva NBDS because array size is greater 
4448 1 : than WU or dimension is not one. 
ree) § K_ SUPPORTED : 1 This descriptor is supported. 
6e8) 4 ' SIDE EFFECTS: 
44 § 5 : Caller of DBGSCVT_DX_DX must have LIBSEMULATE as a handler, if the 
rr) i $ source or destination descriptor explicitely ask for G, H, 0 conversions. 
4455 28 BEGIN 
44 : 5 LOCA 
445 $9 STATUS, ! Status of this routine 
4458 6 STATE, ! State 
4459 o¢ CLASS, ! Current CLASS being looked at 
4460 6 DTYPE, ' Current DTYPE . looked at 
4461 64 TOKEN !' The value of each data type supported 
446 65 LEFT ¢vT : VECTOR (1) i Left side of conversion index. 
446 RIGHT CVT : VECTOR C14 i Right side of conversion index. 
4464 6 LEFT_OR_RIGHT CVT : REF VECTOR, ' Left or right side of conversion index. 
4465 6 SRC_OR_BST_INFO : REF O0te C, BYTE], ! Source or destination info. 
4466 $ SRC_OR_DST : REF BLOCK BYTE], ! Source or destination. 
rrrt§ , TEMP_BOF : BLOCK K_INTMED_DATA.LENGTH, BYTE]; ! Temporary buffer for reshuffling things. 
4469 7 MAP 
4470 7 SOURCE : REF BLOCK C, BYTE], 
4471 7 DESTINATION : REF BLOCK LC, BYTE] 
447 7 SRC_INFO : REF BLOCK C, BYTE] FIELD (SRC_INFO_FIELDS), 
g DST_INFO : REF BLOCK C, BYTE] FIELD (DST_INFO_FIELDS); 


Traverse through the state table twice, once for source, and once for 
the destination descriptor. Each time sSreush. it determines a an 
intermediate type; ie, an intermediate type for the source and an 
intermediate type for the destination. Eg. SMLINT or LRGFLTCMPLX. 
The action routines also build SRC_INFO, and DST_INFO, and they 
convert the source to its intermediate value. 

After determining the intermediate mappings for both the source and 
destination descriptors, a formula eens both intermediate states into 
one final state, eg. k_SMLINT LRGFLTCMPLK. This final result is used 
as the main CASE index~in DBGSCVT_DX_DX. 
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The Loop, goes from 0 to 3: once for source, once for destination; if it makes 
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it to .TURN EQL 2, then it exits the loop with a successful status. 
4489 If the state table indicates an error (eg. invalid dtype-class combination) 
4490 or an error is detected in an action routine (eg. size of array cannot fit in wu), 
yobs then the routine exits the loop with an error code. 
449 38 BEGIN 
4494 9 STATUS = (INCRU TURN FROM 0 TO 3 DO 
4495 98 BEGIN 
rhs 599 
449 600 
4498 601 ! Determine CLASS and DIYPE of this go around, also set up LEFT_OR_RIGHT_CVT, 
4499 rh ! and SRC_OR_DST, and SRC_OR_DST_INFO. 
£200 ret : If this"is’the third time through this loop, we are finished. 
4502 4605 CASE .TURN FROM 0 TO 2 OF 
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; 4503 460 T 

} 4306 uso? 3 E63: 

; 4505 4608 6 BEGIN 

: cee 46499 6 CLASS = .SOURCE Pos Cee. CLASS): 

; 450 4610 6 tig | = ,SOURCE [DSCSB_DTYPEJ; 

: y+ eet) 6 SRC_OR_DST = .SOURCE; 

3: 45 4 ig 4 SRC-OR-DST_INFO = ,SRC_INFO; 

3 4510 461 LEFT_OR_RIGHT_CvT = LEFT_cvt; 

3; 4511 4614 END; 

; e2i6 4615 (1): 

3; 451 o6i8 6 BEGIN 

3 45146 4617 6 CLASS = .DESTINATION PoSCsB. CLASS: 

3; 4515 4618 6 DTYPE = .DESTINATION LOSCSB_DTYPEJ; 

3 seis 4619 6 SRC_OR_DST = .DESTINATION; 

> 4517 4620 6 SRC-OR"DST_INFO = .DST_INFO; 

3: 4518 4621 3 LEFT_OR_RIGHT_CVT = RIGHT_CVT; 

: 2839 1653 sae 

: 4331 re ¢ TES EXITLOOP K_SUPPORTED; 

; 45 g 4626 5 

3: 4526 4627 5 

3 c2 H rr : : Filter out the out-of-range CLASS and DTYPE. 

3 & CLA TRU K_MAX_CLASS_ N EX KL ; 

: 4527 £36 5 if SS GTRU K_MAX_CLASS_STA THEN EXITLOOP K_UNSCLASTA 

$ 2288 +63! ; IF .DTYPE GTRU K_MAX_DTYPE_STA THEN EXITLOOP K_UNSDTYSTA; 

: 43% 1638 5 

; $23) ret: : Crank up the finite state machine. start looking in the start state. 
3 rest 4636 5 STATE = .CLASS_TABLE [.CLASS]; 

3: 4534 4637 5 

; 4535 4638 § ; : 

3 $298 ret 4 ; } Action code for each state that results from the start state. 
: 4538 4641 5 CASE .STATE FROM K_MSTNEGERR TO K_LRGCLSSUP OF 

; 4539 464 5 T 

; 4540 464 5 CK_INVNBDS TO K_UNSCLAROU] : 

3 4541 4644 5§ 

5 $245 4645 5 

3: 454 4646 5 ! Exit the INCR with the error resulting from the 

3 4544 4647 5 ' start state. 

3 4545 4648 5 ! 

5 $266 4649 : EXITLOOP .STATE; 

7 4546 4650 CK_SMLCLSSUP TO K_LRGCLSSUP) : 

Be | Be we 

3; 4550 4653 6 2 

3 4551 4654 6 ! This is a final state, but some constants need to be 
: 495¢ 4655 6 i applied to it yet. This is just a data type, or a 

3; 455 4656 6 ' negative number if error. 

> 4554 4657 6 } 

; 4555 4658 6 TOKEN = .DTYPE_TABLE C.STATE, .DTYPE); 

s $226 4659 6 

3; 455 4660 6 ; ‘ ‘ 

3; 4558 4661 6 ! Exit INCR with the error resulting in a final state. 
3 4559 4662 6 ! 
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; 4560 4663 6 IF .TOKEN LSS 0 THEN EXITLOOP .TOKEN; 

; 4561 4664 6 

; 456 4665 6 

; 456 4666 6 ! Find the final state. 

; 4564 4667 6 : 

3; 4565 466 STATE = FINAL_STATE (.STATE, . TOKEN); 

s £208 $98 ND; 

: 456 4670 CINRANGE, OUTRANGE] : 

; 4568 4671 SDBG_ERROR ('DBGCVTDX\FIND_CVT_PATH: invalid state’); 

; 4569 467 é 3 

; 4570 467 

: 4571 4674 ! This CASE statement contains the action code for each final state other than 
; 4276 4675 ! the error states. 

3; 457 4676 ! The caller of this routine has set up the pointer and Length of SRC_INFO 

3; 4574 4677 5 ! to be the intermediate data area (INTMED_DATA); in the CASE below we change 
; 4575 4678 2 ' the pointer and Length if needed (e.g. any NBDS), otherwise we never 

: $278 4679 ' touch it. 

3; 457 4680 5 ! If .TURN is 0 then we are processing the left side of the conversion, when 
; 4578 4681 5 ' it is 1 we are preceae’ns the right side of the conversion. In other words, 
3; 4579 4682 5 ! if .TURN is 0 we are looking at the CLASS, DATA TYPE of source; if .TURN 

; 4580 46835 5 ! is 1 we are looking at CLASS, DATA TYPE of destination. 

; 4581 4684 5 ! These action codes determine which category (e.g. K_SMLINT or K_DEC as 

3 $286 4685 5 : described in DBGSCVT_DX_DX documentation) the source or destination data type 
3; 458 4686 5 ! falls into. They also convert the source data type to an intermediate 

: 4584 4687 5 ! data cype For more detail refer to the functional description of 

3; 4585 4688 5 ' DBGSCVT_DX_Dx. 

; 4586 4689 5 ‘ 

: 4587 46 5 CASE .STATE FROM K_SMLFINSTA TO K_LRGFINSTA OF 

: 4588 4691 5 SET 

3; 4589 4692 5 

; 4590 4693 5 CK_S_BU, K_SD_BU, K_UBS_BU): 

> 4591 4694 6 BEGIN 

: $238 4695 6 »LEFT_OR_RIGHT_CVT = K_SMLINT; 

: 459 4696 6 IF .STATE EQL R_SD_BU THEN 

3 4594 4697 7 BEGIN 

3; 4595 4698 7 SRC_OR_DST_INFO CM SCALE) = 

: 4596 4699 7 . OR_oOST COSC$B_SCALE); 

3 4597 4700 7 SRC_OR_DST_INFO CM _BIN-SCALE) = 

: 4598 4701 7 - SRC_OR_DSTCDOSC$V_FL_BINSCALEJ; 

; 4599 4702 6 ND; 

; 4600 4703 6 IF . TURN EQL 0 

; 4601 4704 6 TH 

: 460 4705 6 -SRC_INFO CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 8, 0:, 
: 460 6706 g BYTE); 

3; 4604 470 : 

3; 4605 4708 5 

3; 4606 4709 5§ CK_S_WU, K_SD_WU, K_UBS_WU]: 

> 4607 4710 6 BEGIN 

3; 4608 4711 6 -LEFT_OR_RIGHT_CVT = K_SMLINT; 

3 4609 erie $ IF .STATE EQL R_SD_WU THEN 

3; 4610 471 BEGIN 

3 4611 4714 7 SRC_OR_DST_INFO CM_SCALE] = 

3; 461 4715 7 " OR_DST DSCSB_ SCALE}: 

3; 461 ore 7 SRC_OR_DST_INFO CM gin SCALE) = 

3 4614 4717 7 -SRC_OR_DSTCOSC$V_FL_BINSCALE); 

3 4615 4718 6 END; 

3; 4616 4719 6 IF . TURN EQL 0 
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ety 13: 716:44 DEBUG. SR DBGCVTDX.B32;1 vec? 


N 
“SRC IEG CS_POINTER? = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 16, 0;, 


D.LU, K_UBS_LU]: 


s 
R_RIGHT CVT = K LRGINT; 
: EQL R_SD_LU THEN 


DST_INFO (M SCALE) 
RC_OR DST (COSC$B ~3¢ 


YDoD 


DST_INF IN 
SRC_OR_ DSTEDST SV. re 


E $ 
dl TURN EQL 0 
“SAC Ite CS POINTER? = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 32, 0;, 


6 


SD_B8, K_UBS_B): 


RIGHT_CVT = K_SMLINT; 
TATE EQL R_SD_8 TREN 


BEGIN 
SRC_OR ae me t £ 


K 
N 
TO 
Ss 


SCAL 
SRC DSC$B 
SRC _OR st INFO 
~ SRC_OR NDSTLDSCS 


IF Ait) EQL 0 
SAC INEQ CS_POINTER) = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 8, 1 
END; 
CK_S_W, K_SD_W, K_UBS_W]: 
BEGIN™ 


-LEFT_OR_RIGHT es k_SMLINT; 
IF .STATE EQL R_SD_W TREN 


CA 
IN 
VFLL 


BEGIN 
SRC_OR_DST_INFO CM_SCALE) = 
0 oSC$B ~ SCALE}: 
SRC_OR_DST_TNFO CM BIN-SCALE) = 
- SRC_OR_OSTCOSCS$V_FL_BINSCALE); 


IF TURN EQ. 0 
~ SRC med CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 16, 1;, 


BYTE): 
END; 
(K_S.L, K_SD_L, K_UBS_L): 
BEGIN™ 
-LEFT_OR RIGHT cyt = K_SMLINT; 
if .STATE EQL R_SD_L TREN 
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BE 
SRC_OR_DST_INFO [™ 
C_OR_DST [OS 
SRC_OR_DST_ INFO (Mm 
es OR_OSTCOSC 
ek TURA EQL 0 
SRC INFO CS_POINTER] = 
BYTE); 
{K_S S_SV, K_S_TF, K_ 
OR_RIGHT_CVT = K_SML 
R psi iNgOtn, LEN] “= 
URN 
E 
0 


K 
Nn" 
T 
0 
rh 
BEGIN 
LOCA 


L 
BITPOS, SRC_PTR; 


AX-11 Oh igseze Ye 0-742 
DEBUG. SRC JDBGCVTD X.832; 1 


-BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 32, 1 


K_UBS_VU, K_UBS_SVU, K_UBS_TFJ: 


SRC: “oR -DSTCOSC$W_LENGTHI; 


If ,SOURCELDSCSB_CLASS] EQL DSCSK_CLASS_uBS 
BITPOS = .SOURCECDSC$L_POS) 


BITPOS = 
SRC_PTR = 


SOURCECDSCSA _BASE); 


IF sSTATE EQL K_S_SV OR™.STATE EQL K_UBS_SVU 


N 
-SRC_INFOCS_POINTER) = 
ELS 


BEGIN 
sabe INFOCS_POINTER] = 
~BLOCK CTSRC_ INFOLS_P 


hen 
> -LEFT_OR_RIGHT_CVT = 
END; 
END; 
{K_S 


rR RIGHT CyT = 


a so uv 
= 


SRC *OR ae! me 


DS 
SRC _OR St INFO 
~SRC_OR_DSTCD 


EN 
IF TURN EQL 0 
THEN 


BEGIN 
.SRC_INFO Cs POINTER] = 
(.SRT_INFO CS 


YZsZoz 
uw 


-BLOCK C. scone COSCSA_POINTER) 
-POINTER] + 4) = .BLOCK 


-(.SRC_PTR)<.BITPOS, .SOURCECDSC$W_LENGTH], 1> 


~ SRC £ TR GE TPOS. o SOUNCELOSCSY, LENGTH], 0>; 
boiN NTERJ, 0, 31, 1, 0;, BYTE) 


K_LRGINT; 


-5D_Q, K_UBS_Q, K_S_QU, K_SD_QU, K_UBS_QuU]: 


TATE EQL R_SD_Q OR URE NTE EQL K_SD_QuU 


0, 0, 32, 0 
SOURCE CDSCSA_ BO iNveRS +4, 0 


n't 1535) 
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0;. BYTE); 
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14-Sep-19 DEBUG. SRCIJDBGCVT 3231 (31) 
IF .BLOCK C.SRC_INFO CS_POINTER], 4, 31, 1, 0;, BYTE] 
THEN crn 
~SRC_INFO FS-POINTER) = .SRC_INFO CS_POINTER] XOR _*X "FEFFFRFES: 
~SRC_INFO CS POINTER + 4 = ,T.SRC_INFO tS POINTERS + 4) XOR &X'FFFFFFFF’; 
1 SRC= INFO S_POINTER] EQLU a REAGSTOL 
BEGIN 
» SRC_INFO FS-POINTER} = 0; 
gehC.inro S-POINTER] + 4 = .(.SRC_INFO CS_POINTER] + 4) + 1; 
ELSE 
SRC. NFO CS_POINTER] = ..SRC_INFO CS_POINTER] + 1; 
SRC_INFO CS_SIGNJ = 1; 
END; 
END; 
END; 
C(K_S_0, K_SD_O, K_UBS_0]: 
BEGIN" 
-LEFT_OR_RIGHT_CVT = K_LRGINT; 
IF .STATE EQL R_SD_O TREN 
BEGIN 
SRC_OR_DST_INFO CM_SCALE) = 
“.SRC_OR_psT CoSC$s ~ SCALE}: | 
SRC OR, pst INFO t BIN» SCALE 
ees ~SRC_OR_DSTCOSC a _FL_BINSCALE); 


IF _.TURN EQL 0 
THEN 


BEGIN 
CHSMOVE (16, .SOURCECDSCS$A_POINTER], .S 
If BLOCK ~SRC_INFO CS_POINTERI, 12, 3 


BEGIN 
INCR { at tae o. is. 1 


2 BY 40D D0 
OCs .P OINTER] + .1 = .(.SRC_INFOCS_POINTER] + .1) XOR X°FFFFFFFF; 

If RED INFO S_POINTER] EQ dy K_LRGST_LU 
THEN 

BEGIN 

~SRC_INFO CS POINTER = 0 

iNCR"] FROM % TO 12 BY 4 bO 

ir ~SRC_INFO CS_POINTER] + .1 = .(.SRC_INFO CS_POINTER] + .1) + 1; 


«SRC -ES8 CS pasyrens = ..SRC_INFO CS_POINTER] + 1; 
hdl S_SIGN] = 


CK_S_F, K_SD_F, K_UBS_FJ: 
BEGIN™ 


»LEFT_OR RIGHT CVT = K_SMLFLT_CMPLX; 
IF .STATE EQL R_SD_F TREN 


N 
SRC_OR_DST_INFO CM_SCALE) = 


16 

G 18.38 -1984 23:57:30 AX-11 Bliss-32 V4.0-742 Page 178 
yb 12-8 08-1 8c $3ifosas DEBUG. SRC IDBGCVTDK..B 3251 . (31) 
3; 47 4891 7 -SRC_OR_DST CDOSC$B_SCALE]); 
3; 47 4 35 4 SRC_OR_DST_INFO (Mm BIN-SCALE) = 
3; 47 489 ~SRC_OR_DSTCOSCSV_PL_BINSCALE); 
; 4791 4894 6 END; 
3; 479 4895 6 IF .TURN EQL 0 
; 479 4 38 6 H 
3: 4794 489 ~SRC_INFO CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 32. 0;, BYTE); 
3; 4795 4 38 END; 
: ores 48 
3; 479 4900 CK_S_FC, K_SD_FC, K_UBS_FCJ: 
> 46798 4901 6 BEGIN 
3; 4799 ra 4 6 eLEFT_OR_ RIGHT CVT = K_SMLFLT_CMPLX; 
; 4800 490 | IF .STATE EQL R_SD_FC THEN 
3; 4801 4904 BEGIN 
; 480 4905 7 SRC_OR_DST_INFO CM_SCALE) = 
3; 480 49 7 -SRC_OR_DST COSC$B_SCALE);: 
3: 4804 4907 7 SRC_OR_DST_INFO CM _BIN-SCALEJ = 
: 4805 4908 7 -SRC_OR_OSTCOSCS$V_PL_BINSCALE); 
3 ret] 4909 6 END; 
3; 480 4910 6 IF . TURN EQL 0 
3; 4808 4911 § THEN 
3; 4809 491 BEGIN 
3; 4810 491 7 ~SRC_INFO CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 32. 0;, BYTE): 
: 4811 4914 7 
3; 481 4915 7 
: ri ty 4318 4 Intermediate data type is double complex. 
: 4815 4918 7 (.SRC_INFO CS_POINTER] + 8) = .BLOCK C.SOURCE CDSCSA_POINTER] + 4, 0, 0, 32. 0;. BYTE): 
3: 4816 4919 6 END; 
; 4817 4920 § END; 
; 4818 4921 5 
3; 4819 4922 5 CK_S_D, K_SD_D, K_UBS_D]J: 
3 4820 4923 6 GIN 
: 4821 4924 6 LEFT OR RIGHT CVT = K_SMLFLT_CMPLX; 
3; 48 ¢ 4925 § IF .STATE EQL R_SO_D TREN 
3; 48 492 N 
3 4824 492 7 SRC_OR_DST_INFO (M_' CALE) = 
3; 4825 4928 7 -SRC_OR_DST COSC$B_SCALE}; 
3: 4826 4929 7 SRC_OR_DST_INFO CM_BIN-SCALE] = 
: reat 4930 7 ~SRC_OR_DSTCOSCSV_FL_BINSCALE); 
3; 4828 4931 6 END; 
3 rth 4932 6 IF .TURN EQL 0 
3; 4 493 8 THEN 
3: 4 3] 4934 BEGIN 
3 4 ; 4935 7 
3 483 4936 7 3 . 
; $834 4937 7 ! The intermediate data buffer is init’ Lized to zero, so 
> 4835 4938 7 ! don't have to worry about filling i inary part. 
3 : 3 $373 (Intermediate data type is double com, ex). 
: 4838 4941 7 -SRC_INFO CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER), 0, 0. 32. 0;. BYTE): 
3 re t#4 ra 7 f.SAC_INFO CS_POINTER] + 4) = .BLOCK C.SOURCE CbScsA POINTER’ +4, 0, 0, 3 0O;. BYTE): 
3: 6841 4944 END; 
3 4 ¢ 4945 
3 4 494 CK_S_DC, K_SD_DC, K_UBS_DC): 
> 6844 4947 6 BEGIN 
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13-bep-1964 25:57 
LFLT_CMPLX; 


DEBUG.SR 


END; 
IF .TURN EQL 0 


np. CHSMOVE (16, .SOURCELDSCSA_POINTER], .SRC_INFOLS POINTER]) ; 


{K_S_G - SD_G, K_UBS_G): 


-LEFT_OR_ RIGHT at . 
IF .STATE EQL R_S 


K_L 
G TRE 
BEGIN 
SRC_OR pst ee MS 
.SRC_OR_DST (CDSC 
SRC_OR_DST INFO 4B 
he -SRC_OR_DSTCOSTS 
IF TURN EQL 0 
THEN 


GFLT_CMPLX; 
L 


R 
N 
C 
I 
VF 


& 
6. 
N- 


BEGIN 
‘ee INFO CS_POINTER) = -BLOCK {C.SOURCE COSCSA_POINTER], 
we, fiibe RCL INFO CS_POINTER] + 4) = 


END; 
CK_S_GC, K_SD_Gt, K_UBS_GC): 
BEGIN ~ 


sb EFT OR_ RIGHT CVT = K peeves _CMPLX; 
» STATE EQL R_SD_GC THE 


GIN 
SRC_OR_DST INFO M_SCALE] = 
~SRC_OR_D psc C$B_ ath L 
SRC _OR ad Theo M_BIN-SCAL 
-SRC_OR_DSTCOSCSV "recat 


= . TURN EQ. 0 
> CHSMOVE (16, .SOURCECDSCSA_POINTER], .SRC_INFOCS_POINTER)); 


Ej; 
ALE] = 
NSCALEJ; 


CK_S.H, K_SD_H, K_UBS_H]: 
BE 


beFT OR RIGHT CVT = K_LRGFLT_CMPLX; 
STATE E L R_SO_H TREN 
$ 


SRC TOR DST_INFO 5 ait ALE] 
src OR DST INFO CR BINCSCA 
~, SRC_OR Theo thst FL_B CALE); 
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9° 31) 


- 32, 0;, BYTE) 


-BLOCK C.SOURCE [DSCSA EROINTERS +4, 0, 0, 32, 0:, BYTE); 


END; 
IF TURN EQL 0 THEN CHSMOVE (16, .SOURCE CDSCSA POINTER], .SRC_INFO CS_POINTER)); 
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12-8 08=1 3b 93:30:20 DEBUG. SRCIOBGCVIDK BS241 
END; 
(K_S_HC, K_SD_HC, K_UBS_HCJ: 
BEGIN 


sLEFT OR RIGHT CVT = K_LRGFLT_<MPLX; 

IF «STATE EQL R_SD_HC THEN 

RC_OR_DST_INFO (M_SCALE) = 
~SRC_OR_DST COSC$B_SCALE]; 

SRC_OR_DST_INFO (Mm BIN SCALE] = 
~SRC_OR_OSTCOSC$V_PL_BINSCALE]; 


END; 
IF .TURN EQL 0 
— (32, .SOURCE COSCSA_POINTER], .SRC_INFO CS_POINTER]); 


(K_S_T, K_SD_T, K_UBS_T): 
BEGIN 
-LEFT_OR_RIGHT_ CVT = K_NBDS; 
SRC_OR_DST_INFO CM_LENT = .SRC_OR_DST CDSC$W_LENGTHI; 
IF STATE EQL K_SD_T THEN 
BEGIN 
SRC_OR_DST_INFO (M_SCALE) = 
-SRC_OR_DST COSC$B_SCALE); 
SRC_OR_DST_INFO CM_BIN-SCALE) = 
- SRC_OR_OSTCOSCS$V_PL_BINSCALE); 


END; 
IF . TURN EQL ¥ 
THEN 
BEGIN 
5 a CS_POINTER] = .SOURCE CDSCSA_POINTER]; 
END; 
(K_S_NU, K_SD_NU): 
BE 


-LEFT_OR_RIGHT_CVT = K_DEC; 
lr .STATE EQL R_SD_NU THEN 


N 
SRC_OR_DST_INFO CM _SCALEJ = 
~SRC_OR_DST pSC$B_ SCALE): 
SRC_OR_DST_INFO CM BIN SCALE] = 
- SRC_OR_DSTCOSCS$V_FL_BINSCALE); 


END; 
IF . TURN EQL 0 
THEN 


SRC_INFO CS_LEN) = 31; 
evTTP (SourRTE COSCSW_LENGTH], .SOURCE [DSCSA_POINTER], LIBSAB_CVTTP_U, 
mp C_LINFO CS_LEN], .SRC_INFO CS_POINTER)); 

END; 


[K_S_NL, K_SD_NLJ: 
-LEFT_OR_RIGHT_CVT = K_DEC; 


Pe ea oe oe 
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; 4959 § § IF .STATE EQL K_SD_NL THEN 

; 4960 BEGIN 

; 4961 7 SRC_OR_DST_INFO (M_SCALE] = 

: o3e8 gf SAc_OR DST INFO ER BTMnSCATET 

$ = 

3 4964 oo 7 eRe _OR *DSTLDStSY. FL BINSCALE); 

; 4965 6 END; 

; $208 6 IF .TURN EQL 0 

; 496 070 ) THEN 

: 4 071 BEGIN 

: 4969 % 7 SRC_INFO CS_LEN) = 31; 

3; 49 73 7 CVTSP (ZREF™( 

3; 497 74 7 IF “pounce f° COSCSw aa EQL 0 THEN 0 Ese «SOURCE COSC$W ,gusrns - 1), 
3; 497 075 7 -SOURCE COSCSA_POINTER], SRC_INFO CS_LENJ, C_iNFO S_POINTER]); 
3; 497 076 6 END; 

: 4974 of 5 END; 

3; 4975 78 2 

3; 497 079 CK_S_NLO, K_SD_NLO): 

3; 497 5080 6 BEGIN 

: 4978 5081 6 ae! OR Piet CvT = K_DEC; 

3; 4979 2086 § ~STAT Fe _SD_NLO™ THEN 

3; 4980 508 

3; 4981 epee 7 SRC *OR a! Into M_SCALE] = 

3; 498 085 7 DSC$B_SCALE]; 

: 498 5086 7 SRC_OR BST Tho M_BIN- SCALE] = 

: 4984 ris 4 7 ~SRC_OR_OSTCOSCSV_PL_BINSCALE); 

3; 4985 5088 6 END; 

; 4986 5089 6 IF .TURN EQL 0 

3; 4987 5090 S THEN 

: 4988 5091 BEGIN 

3; 4989 2036 7 LOCAL 

3 4990 5093 7 LF_SIGN: REF VECTORC, BYTE), 

3; 4991 5094 7 RT_SIGN: REF VECTORC, BYTE), 

3; 499 5095 7 ZERO_FLAG, 

3; 699 5096 7 SIGN_FLAG, 

3 4994 5097 7 PACK- — Ri aot C1); 

3 4995 5098 7 PACK_7ERO = CEP" 40° j; 

3 rhe 5099 7 SRC_INFO CS 

3; 499 5100 7! arbi fie AN BSAB ‘ivr 9-¥ A ee) COSCSW_LENGTH], .SOURCE CDSCSA_POINTER], 0, 
; 4998 5101 7 | DSC$W_LENGTAJ, TEMP BUF 

3 4999 2108 | a evtT (SOURCE DScSw LENGTH], TERP UBul LIBSAB_CVTTP_U, SRC_INFO CS_LENJ, 
; 2000 213? 4 : C_INFO CS_POIRTER 

: 500 2193 7 ! Orignal code turns a NLO type into positive NLO. If the negative 
; 500 198 7 | type comes into this piece of code without CHSTRANSLATE gives Reserved 

3; 5004 107 7! Srerend fault. What I did here is to move the left overpunched on 

3; 5005 108 7 ! to the right overpunched sign then performs the conversion. After t 

3 2008 1% 4 } conversion, put the sign back to where it belonged. 

; 2008 111 7 a SIGN = .SOURCE CDSCSA_POINTER] + .SOURCE CDSCS$W_LENGTH] - 1; 
; 5009 a 7 “SIGN = 50 uRCE DSC$A_POINTER); 

3; 5010 113 7 SERO O FLAG = FALSE; 

3; $011 114 7 SELECTONE “LF *S1GNCO) OF 

3 aig 115 7 

: 3 116 7 

3; 5014 117 7 ! Positive 1 -- 9 

3; 5015 5118 7 : 


15-Sep-1984 ; :57:30 Ax-11 Ol gene v4.0- 
14-Sep-1984 12:16:44 DEBUG. SRC JDBGCVT 
C%X"41" TO %X°49°): SIGN_FLAG = TRUE; 

} Negative 1 -- 9 

C%x"4A" TO %X"52"]: SIGN_FLAG = FALSE; 

Positive 0 


{%x'7B'): 
BEGIN 


7% Page 1 
v¥bK a Soe age 199 


—— 1 


SSFLAG > TAU 
STGNCO) = Byi So. 
~RT_SIGNCOJ EQL £x"30" 


EN 
gg hT=SIGNCO) = 2x"7B" 


WN “SO OONOUES WN "OOO 


pon fa falolololololololololojlelolo) 


; 119 7 

3 120 7 

; 1 f 

: 158 } 

; 124 7 

) 154 

3 137 

3 188 

; 150 

3 : 1 

138 § 

7 8 

3 é 3 1 6 8 RT_SIGNCOJ] = .RT_SIGNCO) + %x'10'; 
; 5034 2} 7 ND; 

3; 5035 138 7 

3; 5036 139 7 ! Negative 0 

: 2 37 140 7 i 

; 5038 141 7 C%x"7D"): 

: 5039 148 a BEGIN 

; 5040 143 8 SIGN_FLAG = FALSE; 

: 2041 144 8 Zé RO FLAG = TRUE; 

: O4@ 5145 8 Lt _STGNCO) = %x°30°; 

3 504 146 5 IF~.RT_SIGNCO] EQL £x'30' 

: 5044 5147 8 THEN 

: 5045 5148 8 RT_SIGNCO) = %X'7D' 

; 2046 5149 8 L 

: 504 5150 8 RT_SIGNCO] = .RT_SIGNLO] + %x'19"; 
> 5048 5151 7 ND; 

: 5049 313¢ 7 

: 5050 5153 7 COTHERWISEJ: $DBG_ERROR('DBGCVTDX\FIND_CVT_PATH"); 
; 5051 5154 7 TES; 

; 305¢ 5155 7 

: 505 5156 7 IF NOT .ZERO_FLAG 

> 5054 157 7 THEN 

: 5055 158 8 BEGIN 

: 096 159 : IF .SIGN_FLAG 

: 505 160 THEN 

: 2089 2183 3 BF oe GNCOI = .LF_SIGNE %x'10° 
; 5060 2188 9 IF~.RT_SIGNCO) EGL ents 

: 5061 3164 9 N 

: 06¢ 165 4 gg h1-S1GNC0] = %Xx'7B" 

: 5064 169 9 RT_SIGNCO) = .RT_SIGNCO] + %Xx'10'; 
: te 168 ; D 

: be 190 R ELSE 

: 5069 192 9 BEGIN GNCO) = .LF_SIGNCO) = 2x"19" 
+ 5070 178 9 IF~.RT_SIGNCO) EQL gutgi 

: 971 17%4 9 THEN 

: 5072 175 9 RT_SIGNCO) = %Xx"7D" 


16 
1b-5ep-19 4 $3: 97:29 Ax-11 Otis 
14-Sep-1984 12:16:44 DEBUG. SRC 


ooo 


IF g AT SiGnce? EQL %x'7D" 


3; 5073 17 ELSE 
: 5074 9 RT_SIGNCO] = .RT_SIGNCOJ + %x'19'; 
; 5075 178 ND; 
3 78 17 
; of : » END; 
; 678 1 ¢ CVTTP (SOURCE COSCSW_LENGTH], .SOURCE CDSCSA_POINTER], LIBSAB_CVTTP_O, 
: Bey : 7 SRC_INFO CS_LENJ, .SRC_INFO CS_POINTER]); 
3 oes ; 5 Now put the sign back. 
; O84 187 iF .SIGN_FLAG 
3 5 188 THEN 
3; 5086 189 BEGIN 
ot 130 IF .RT_SIGNCO] EQL %x‘'7B' 
044 13 RT_SIGNCO] = %x°30' 
a4 «| RT_SIGNCO] = .RT_SIGNCO) - %x'10'; 
098 198 4 gL F -SIGNCOI EQL %x'30" 
bee 138 LF_SIGNCO] = %x'7B' 
097 200 LF_SIGNCO] = .LF_SIGNCOJ + %x'10'; 
098 01 
099 O END 
i ELSE 
05 
06 


~LEFT_OR RIGHT CVT = K_DEC; 
IF .STATE EQL R_SD_NR THEN 


N 
SRC_OR_DST_INFO CM_SCALE) = 


PPV PUDVDUDULPU PVP DUDE SLUPTDUSVSVLPUSUS ESET SUSU SUSU USUI SUSI SU SUSI STASI SUITE STS SISOS SISTA 
PPV PVPVDVDVDV PV IVP UDVSIVSPUDUSVIVSIVSUSUIVSVSUSVSUSVSVSIVSUSUSUSVSTSUSTUSV SUSU ISIS ISIOSIS ISIS ISIS 


NNAAOA UUM SII NI09 09 09 09 00 09 00 GD 09 C9 C9 OD CD “1 0D G9 CD GD CD 09 09 CD C9 CD 0D 09 C9 C9 09 INI NININIISI NOOO OO 


1 
1 

198 

104 07 

105 08 RT_SIGNLO} = %x'30° 

106 09 

107 310 RT_SIGNCO}] = .RT_SIGNLO) = %x'19"; 

109 18 IF .LF_SIGNCOJ EQL %x'30" 

110 1 THEN 

111 14 LF_SIGNCO} = %x'7D" 

118 315 

113 1 LF_SIGNCO}] = .LF_SIGNCO] + %x'19"; 

115 8 END; 

Ht 220 IF CMPP (SRC_INFO CS_LENJ, .SRC_INFO CS_POINTER], ZREF (1), .PACK_ZERO) EQLU 0 
119 234 BLOCK C.SRC_INFO [S_POINTER] * .SRC_INFO CS LEN3/2 0, 0, 4, 0;, BYTE] = .BLOCK C 
0 2 ; woz .LIBSAB-CVTTP_O-+ .SOURCE COSCSA_POINTER). 0, 6, 4, 6;, BYTE); 

é 5 END; 

124 $ (K_S_NR, K_SD_NR): 

125 é BEGIN 

139 

1 0 

128 1 

129 32 
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PPV DVDVDPVLVDPVDVLUDPVPUPUSUDIVLUDVSUDVSUDIVDIVISU SUSU SULIT SVUSUSUSUSVSUSVUSUSUSVS ISIS USI SISOS USS IOSUSIOSIOSIOSIOSIOSIOS 


fRoronofory 


@oc000 0000 
Pele) wn 


PASSA ADA SNP ADA MMM SII NAA DA ISIN NOAA A UMMM INI NIOO NINN NOOO NINN 


.SRC_OR_DST 
SRC_OR DST INFO 
~.SRC_OR_DST 


ND; 
IF .TURN EQL 0 
THEN 


M6 
15-Se0=1984 23:57:30 AX-11 Bliss-32 V4.0-742 
14-Sep 1984 $3: 3G ide DEBUG. SRC IDBGCVIDX.B32;1 
rasete See. 
COStSy Fi BINSCALED: 


BEGIN 
IF SOURCE COSC$W_LENGTH] EQL 0 THEN 0 ELSE .SOURCE CDSC$W_LENGTH] - 1 


END 
TEMP_BUF CO, 0, 
CHSMOVE (.SOU_L 
SRC_INFO (S_LEN 
eVISP (sou_CEN, 


[K_S_NRO, K_SD_NROJ: 
BEGIN 


-LEFT_OR RIGHT CVT = K_ 
NR 


IF .STATE EQL R_SD_ 
BEGIN 
SRC_OR_DST_INFO 

, OR_DST 
SRC_OR_DST_INFO 
»SRC_OR_DST 


END; 
IF .TURN EQL 0 
THEN 


CK_S_NZ, K_SD_NZ): 
BE 


8, 0] = .BLOCK [.SOURCE CDSCS$A_POINTER] + .SOU_LEN, 0, 
Nz, SOURCE COSCSA_POINTERJ, TEMP_BUF + 1); 
TEMP_BUF, SRC_INFO CS_LENJ, .SRC_INFO CS_POINTER)); 


D 
oT 
a 

is 
4.8 
Costs 


, .SOURCE CDSCSA_POINTER], LIBSAB_CVTTP_O, 
NFO CS_POINTER]); 


~LEFT_OR_RIGHT_CVT = K_DEC; 
IF » STATE EQL R_SD_NZ THEN 


SRC_OR_DST_INFO 
~SRC_OR_DST 
SRC_OR_DST_ INFO 


N 
- SRC_OR_DSTCOSCS$V_F 


END; 
IF .TURN EQL 0 


M_SCALEJ 
DSC$B_SC 
MBI . 


$4 POINTER], LIBSAB_CVTTP_Z, 


0, 8 0;, BYTE); 
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7:30 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 16:44 DEBUG. SRCIJDBGCVTDX.832;1 
BEGIN 
-LEFT_OR_RIGHT_CVT = K_NBDS; 
IF . TORN EQL 0 
THEN 
BEGIN 
SRC_INFO pe-POLNTERd = a at: COSCSA_POINTER] + g' 
ae S-LEN] = .BLOCK C.SOURCE CDSCSA_POINTERJ, 0, 0, 16, 0;, BYTEJ; 
ELSE 
END DST_INFO CD_LEN] = .DESTINATION CDSC$W_LENGTHI; 
CK_VS_AC): 
BEGIN 
-LEFT OR_RIGHT_CVT = K_NBDS; 
IF . TORN EQL O 
THEN 
BEGIN 
SRC_INFO £3.POLuTeRd = ,SOURCE CDSCSA_POINTER] + 1; 
SRC_INFO S-LEN] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0. 8, 0;, BYTE); 


E 
. DST_INFO CD_LEN] = .DESTINATION CDSC$W_LENGTH); 


CK_VS_AZ): 
BEGIN 
.LEFT_OR_RIGHT_CVT = K_NBDS; 
N EQL 0 


IF .TOR 
THEN 
BEGIN 
OCAL 
SRC_PTR: REF VECTORC, BYTE), 
COUNT; 
COUNT = 0 


SRC_PTR = .SOURCECDSC$A_POINTER]; 
WHITE .SRC_PTRC.COUNT] REQ 0 DO 
COUN .COUNT + 1; 
SRC_INFOCS_ LEN) = .COU 
SRC_INFO CS_POINTER] = 


ELSE 
yp eST=!NFO CD_LEN] = .DESTINATION CDSCSW_LENGTHI; 


NT; 
.SOURCE CDSC$A_POINTER]; 


CINRANGE, OUTRANGE): ee 
pg SDBGAERROR (*DBGCVTDX\FIND CVT_PATH: invalid final state"); 


! End of INCRU, with a EXITLOOP value. 
! End of STATUS. 


the left and right of the conversion, (i.e. if the conversion is 
K_SMLINT_LRGFLTCMPLX, then LEFT_CVT is SMLINT and RIGHT_CVT is LRGFLTCMPLX) 
' into a final conversion index and return with the status of this routine. 


PPD DV DDD DV DVL PUD LU DUDS IVIVSDVSLV SUSU SUSI SUITS T SULTS ISIS STSCI 
RIPIPIPININDIY B& GGA OB SII NNNN NSNR AA A IIRA O NII NAA A A MIA OA NNN NOOO Om 


BE & FAM 


PAN 


ae 


1 
GCVTDX 13. Sep-1984 23:57:30 AX=-11 Bliss-32 V4.0-742 
voes000 14-Sep-1984 13:76:46 DEBUG. SRCIDBGCVTDK.B3251 


: 330 01 404 § CVT_PATH = (.LEFT_CVT = 1)*K_TOT_CAT + .RIGHT_CVT; 
; rir 1 END ETURN » STATUS; ! End of i FIND_CVT_PATH 
; ints een d LOCAL bol Bh, babl i Lized celles neath 

: eference symbo is proba not initialize 

: INFO#250 . bla ' 


u1 
; Referenced LOCAL symbol RIGHT CVT is probably not initialized 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


76 6€ 69 20 20 3A 58 44 54 5¢ 43 47 42 44 18 01980 P.AKM: .ASCII <24>\DBGCVTDX: invalid class\ 
73 73 61 6 6 20 64 69 6C 61 019BF 
(76 6€ 69 20 20 3A 38 44 54 36 43 47 42 44 18 019C9 P.AKN: .ASCII <24>\DBGCVTDX: invalid class\ 
73 73 61 6C 6 20 64 69 6C 61 01908 
SF 44 4E 469 46 5C 38 “me 6 6 oY a Oe 26 19E2 P.AKO: .ASCII \@DBGCVTDX\<92>\FIND_CVT_PATH: invalid \ 
61 76 6€ 69 20 20 3A 48 54 41 50 SF 54 56 43 019F1 
0 64 69 6C 01A00 
65 74 61 74 73 O1A04 -ASCII \state\ 
01A09 -BLKB 
0 09 00 OC O1A0C P.AKP: <ASCII <12><0><0><0> 
| SF 44 4— 49 46 SC 58 446 54 56 43 & 4 44 i$ 01A10 P.AKQ: .ASCII <22>\DBGCVTDX\<92>\F IND_CVT_PATH\ 
48 54 41 50 SF 54 56 43 OJAIF 
SF 66 GE 469 46 SC 58 46 54 56 43 47 42 44 2C 01A27 P.AKR: ASCII \,DBGCVTDX\<92>\FIND_CVT_PATH: invalid \ 
(61 76 6E 69 20 20 3A 48 54 41 50 SF 54 56 43 01A36 
20 64 69 6C 01A45 
65 74 61 74 73 20 6C 61 6E 69 66 O1A49 .ASCII \final state\ 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 FIND_CVT_PATH: 
“WORD Save R2, RB, R4,R5,R6,R7.RB,RI,R10,R11 
SE CO AE 9€ 00002 MOVAB -64(SP) 
OC AE D4 00006 CLRL «TURN 
02 00 OC AE CF 00009 1$ CASEL TURN ia: #2 
003C 0021 0006 OO000E 2$ WORD 33-28. 
5$-2$ 
50 04 AC DO 00014 3$: MOVL OURCE, RO 
04 AE 03 AO 9A 00018 MOVZBL 3(RO), CLASS 
6 02 Aad 9A 0001D MOVZBL 2(RO) DTVPE 
5 50 pO 00021 MOVL RO, SRC_OR 
SA Oc aC 00 00024 MOVL SRC_INFO, sre OR_DST_INFO 
08 AE 18 AE 9E 000 8 MOVAB LEFT_CVT, LEFT_OR_RIGHT_CVT 
20 11 0002D BRB 6$ 
50 08 AC DO OO002F 4s: MOVL DESTINATION RO 
04 AE 03 AO 9A 00033 MOVZBL 3(RO), CLASS 
bf 02 Ad 9A 00038 MOVZBL 2(RO); DTYPE 
59 50 pO 0003c MOVL RO, SRC_OR_DST 
SA 10 AC DO 0003F MOVL DST_IN‘O, SRC_OR_DST_INFO 
08 AE 1¢ OA : 9043 MOVAB RIGAT_cvf. LEFT_OR SRIGHT _CvT 
05 11 0004 BRB 6$ 
50 01 DO O004A 5$: MOVL #1, STATUS 
6E 11 00040 BRB 12$ 


Bete Se Ge Fe Se Se Se 
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vo4=-000 Fie ath ris Pe 6 i PAR SP ge 498 
OC AE 05 00648 85$: TSTL TURN 3 4910 
6D 3 Osa BNEQ 38s : 
50 0c ac DO 0065 MOVL § SRC_INFO. RO + 4913 
1 07 Ad DO 0694 MOVL  1(RO), Ri : 
50 04 ac D0 0658 MOVL SOURCE, RO : 
50 04 AO DO 0065 MOVL  4(RO), RO : 
61 60 DO 0066 MOVL (RO), (R1) : 
08 Al 04 AQ DO 0066 MOVL 4(ROS, 8(R1) : 4918 
53 11 006 8 $ BRB 938 + 4690 
08 BE 5 DO 00664 $ MOVL #3, @LEFT_OR_RIGHT_CVT + 4924 
0000008C = BF 6 D1 066 CMPL STATE. #1Z0 > 4925. 
iE 13 906 BEQL 1$ : | 
€ 11 0067 BRB es + 4932 
08 BE 3 D0 00679 88$: MOVL #3, @LEFT_OR_RIGHT_CVT + 4948 
0000008C BF : D1 0067D CMPL STATE, #120 + 4949 
53 1300684 89$: BEQL  9%6$ : 
61 11 00686 BRB 97$ + 4956 
08 BE 04 DO 00688 908: MOVL #4, @LEFT_OR_RIGHT_CVT + 4963. 
0000009C BF 56 D1 0068¢ CMPL STATE, #156 + 6964. 
6A 08 AS 98 ooees 918: Rove B(SRC OR DST), (SRC OR_DST_INFO) : 4967 
50 OA ad 01 03 EF 00699 EXTZV #T, TOCSRC_OR_DST)> RO” + 4969. 
07 AA 01 01 50 FO 0069F INSV 4% #1, #1, 7(SRCZOR_DST_INFO) : 
OC AE D5 006A5 92$: TSTL TURN + 4971 
74 12 006A8 BNEQ  100$ : 
50 OC AC DO O06AA MOVL § SRC_INFO, RO + 4974 
51 01 AO DO O06AE MOVL 1(R0), Ri : 
50 04 AC dO 006B2 MOVL SOURCE, R : 
50 04 AO DO 00686 MOVL 4(R : 
61 60 7D O06BA MOVO (RO), (R1) : 
6F 11 006BD 93$: BRB 101$ : 4690 
08 BE 4 00 00685 94$: MOVL #4, @LEFT_OR_RIGHT_CVT : 4981 
Q0000009E BF 6 D1 006C3 CMPL STATE, #158 ~ + 4982 
BB 11 006CA BRB 89 : 
08 BE 04 DO OO6CC 95$: MOVL #4, @LEFT_OR_RIGHT_CVT : 4996 
0000009D = BF 56 D1 00600 CMPL STATE, #157 ~ : 4997 
10 12 00607 BNEQ : 
6A 08 A9 90 00609 96$:  MmOoVvB B (SRC OR_DST), (SRC gR-DS1_INFOD : 5000 | 
50 OA a9 01 03 EF 006D EXTZV at, TO(SRC_OR_DST); RO : 5002. 
07 AA 01 01 50 FO 006 INSV 4% #1, #1, 7(SRC"OR_DST_INFO) : 
Oc AE DS 006€9 978: TSTL TURN > 5004 
40 12 006EC BNEQ 101$ ; 
51 04 ac dO OO6EE MOVL § SOURCE Rt ; 
50 Oc aC 9 O06 MOVL SRC _INFO ; 
01 + B0 04 861 10 6F6 mOVC3 AT oh @1(RO) : 
30 11 OO6FC BRB 107 : 4690 
08 BE 04 00 006 98$: MOVL #4, aust OR_RIGHT_CVT : 5009 
0000009F 8F 56 D1 0070 CMPL STATE, #159 : 5010 
10 N2 07 BNEQ ; 
6A 08 ao 9 0708 MOVB B«SRC 7r DST), (SRC_OR st _INFO) : 5013 
50 OA a9 01 3 EF 0070F EXT2v. @# TO(SRC_OR_DST) : 5015 
07 ~AA 01 01 0 FO 00715 INSV RO, #i, 7(SRC“OR "Déte RO NFO) ; 
OC AE DS 00718 998: i, eae | inf : 5017 
6F 1 Orie 100$: BNEQ 106$ ; 
51 4 AC 00 007 MOVL §§ SOURCE, R1 : 5019 
50 C aC p 007 4 MOVL sk _INFO, RO : 
01 B0 04 81 20 28 00728 mOVC3 RIO a1(RO) : 


eae 


a 


-——— 


(31) 


Page 199 


Saaze V4.0-742 
DBGCVTDX.832;1 


DBGCVTDX 


v04-000 


owwmo Oe MM Of OM wh -—N WES ON NoOenen We OH WwW — 
wo0O00 C0 C000 ceo oO oO oOo wooo co CoG So oO ooceo o0O co OO =— 
TNWMm WW WN wm Om OOO WwsFrwMNn WwwNiw ww WwW 
Ter eer er eer eee eel ere eee ee el el ee ee eee ee eee eee eee al er eT eT eT eT eT eT eT eT eT ae ae ee eee ee 
~~ 
oO 
a 
~ 
-_- 
@e 
. 
-_ 
oOo 
a 
~ ~ ~ ~ ~ ~ 
oO oO oO wn oO oOo 
ve ka ~~ “ue ~ “ue ~~ “ ~ 
2 zo z oOo bd z oOo = ©& 
cod — — > —_— —_— 
t ‘2 ‘12a 0 ta '2 
oa -o- -oO~- a. -oO- -O- 
te) wa wa t -— wa ft =~ Wa ft 
a a a - a o a 
4 (om io > (mm a i'm 
-—-a cena ena Vv - cna - <z-a 
>o om t > or 1 a > or 1 - > Or | 
~w 1 wa w wma 9 Vv Wa eo vw wma 
LS) v,%aQ0 ‘ Yao t Yvao if vao 
-—-a am @©t & am ee ot al am te ._ = am fe 
xm OaQvyv = “MAQw @ =x Yaw ~ =x Yaw 
ow ~oOoa 9 ~-oa _ oO ~-oa Oo 9 ~oa oO 
nN we L Ye) | _ Le) : | Le) a 
a wow a sow a eal ~~ a ww w 
ts. cot: 4 ' “ar . 8 =r wn t -=ar ™~ 
en -w a wn oO ~ a -m oO < -W wn 
orm ww + Ow Yw * a - om Mw + a -* Ooo Mw « “~<a 
"ms Aa0-— wer Aa0O- a x wr AaO- a ~ wr 2a0-— v ae wt 
-—-a- -2 ee ea oacw~ -—— 2 oa - ee eR <« wave 
uu & uw oa w we & oe uu ec ws aoc = 
wa oOo: s wi Oe-es wu~ +8 w oes w~ « ec ~~ w oes wu © oy 4 
ao » e— J) © ee Zzwnw —_ * ~— anw ZT a ¢ -— “Zw +O 
eo w vRe CGw VR —- we cw vee — wo *> @ @Gw vrRe aS VA 
fa wre An -Aa 2eieacn~ FA -§-HE 2 i<-F AO oh od Zew (| ewe 
OO aw + SO NY * SOUR D— WS 20M *§§ SEHNVe DO ee MW 9M) * eve Seas 
OWOM-O~Y~MOMMFO~YMOTDOAMOek —M-O~MOD— AMOK VK ALVNVNOMNeE RK ~MOoOdDe *emMmMoa~r~r- 
—-RBMe Me OB BM OBE YAYwY —BMN—- OBER — VRENwY Oe Ee vh See BH ODese-AVYeaYor-wvs ae 
—) | 
> oS a > 32 a = 2 3 
+3I00N>  JIOGON> 1G U3 Ir AaAjION> JOYIUBI3BGOY NUH YUIAGON>IUIGO4 UB UNH 
@O>raw>-w3B>raw>-Yew>>>e— Oro wr Oe w> > Sew OP Vere Bra wSs Hew Sooo raw 
OFFVOLw-OFVOfw OFF ZeY OlVOLw+OETFZ- Oc DEOvAE OEw—-D <a 
AA AA cad AA So FA RAMA td Fo 
—-™N mT w or oo oOo wr ww 
oo oo Oo oo oo rr eer ce 
Se oe Se - -- or eC Fee rr 
WOT Oe RK NO TOL KN Oe TO EWI OS ENO WINDOW OE Oe RK MIN COS OUST Ow Oe w 
PPP PPP PPP PRR RRR RRR RR PPR PRR OCOCOCOCODD 


SDOOOOQOOOOGOOOGOGOOOOSSOOSSOOSOOOOOOOOOCCCOOCSOOSOSOSOOOSOOOOSOOOOSoOOoOSooOo 
COOOCOCOOOOOOCOOOOSOOSOSGSGSOSOSSSOSSSSSSSSSSSCOSOSSSSSSSSOSSS SOSCSOOOSOOo 


—OO-—VNOLOK OK MOLOMMVOOCOCODO KOK NOL OMMOQOOWN ST — ORO KOK NOL OMMWOOOVOr. 
—AaDOr-CwuMOOnrOwuOr- ODN —AOOnr- Oulu O- ODO O-MAGCMAOAKOwH Or OODQaMva 


& OA DOSMOOMDOSMOWOVe VO OMNODOOMO Wt Ve VET UNE CUR. NOOOMOW Mu Vu vOay 
o So 


3) co vw vw Ts = oo vw wow wv co ve ovwww 
Oo o ooo oO Oo S&S 6 ©& Oo Oo > Sa o Oo 
oS 
oS 
oS 
o 
o 
wet Cee we See oor we fee oor Ne —- &keSe Ee WWNowrs 
@aao OCcOo DO Ooo WMWiwnw @no OOO wmwaw “~ @D@ OO OOo qmaannw 
aouwu oo ww wT or w wT wr wr Ww 
ooe oo o oOo oo Oo o oo - Oo 
oO Oo Oo oS 
°° o So oS 
Oo Oo o o 
Oo oO Oo So 
o Oo o oS 
oO Oo oOo oO 
an an [=] aon Oo an 
zo zo o «to =< zo 
oo 
< 4 So 4 wn << 
Oo oO So oO oO oO 
Oo 
So 
o 
oO 
o 
oO 
oc oa Oo oc Oo es 
wet we < we @ w 
~ ~ w ~ - ~ 
Oo oO oO oOo Oo Oo 


oe Ol issese V4.0-742 
DEBUG. SRC JDBGCVTDX.832;1 


~m ~ COeN FT OYTr MVTNO @ w w 
C oeieiand ™N N NMOMO MM Mews VST STO New WnAOO OO OW m— RO 
- Se 22 C&2& FEF CCE CPC E - - 
w wn MWNnmMmM WW MWNWMH MWNMMN Ww w nw 


See eee Hee He HO Fe HS FO TS FS HEE FTR FETE TR TS HS FS FS FS ESTE TS HS ES HS HS HS ESTES HS TSHR ESTES TS HS HS HS HS HS HS HS HSH FETE SESE SESE HS 


' 
. 
“~~ 
w 
fo 4 
— 
w 
. 
oO 
d 
a 
—_— 
— 
> 
vw 
a 
ro 
@ 
-_ 
4 
z ~ ~ w ~ oF OF ~ ~~ s 
oOo uw ™M rN N -a@ 2 a mw -“~cof87 2 A Own O 2 =~ -O 2 2m 
“—-~ one UO Ke @ -—- woeo2s 89 2 =_ o2zTr Oo 2 awuweuzasr O 2 2It3 38 2 
» 82= 8® <« 2 ® = «qaon = oO ® qon = Zeer Oe = OU US = UOTE 
a —_ +a yn = an no = oO _ a = yn == 
ow _ = . 8 ._ wuw *s iw . “W © wn — 5 ww ‘wn we ' ow~ 
aon A tin -a UA ttinre tiavJtk w& 8 eee GS fs |’ ee & eh 
—az2222a4 2 2042 @2 —-§ 2 <€0O0482 a2 Adduz QO —- wo Zz EC 
“90 OU 8 28 8 ws YB Veo ~~ & UO wee ~Y~ «= COOwwIO ~~ & wo~ 
- muwnwwn 1 ww +t WwW WN Ws no ™ Ws onw ti ww _ -*s -— »*. ie 
-O MmwMmA HM MZA WH *| RMA FA MZ *5 RNA Mw wT OF > BMA M+ MNO —=—z 
SeeuOuO “Vuh uh OED += We, DOOUWNONUE KU WF OoKNMNNE (CO ZCUOREMUNOOOMNENWNOMe~ 
ON he tt i SE ONIN LIN te FE ONION te EN NI CUI EN UE 
NW ew Be MR wR New BRB RBw eK BeBe we VYBSEw~e Be B- AsBsereaenvewreB@e--Br ewe Be-2~ea 
- a | — N N , ™N uN ™N aS 
+SjIjIOvVom@Macii OvOaci OIiist@M@oaog DOD @BAIIsa@oaogmd @D IFTIITuIVVYVOAOOD @® ce ar 
>a wo >OM0MO-a@Maw>> So wrOMo@odwt>r>0 w>DoOuvnw wMMAMOM6Aw>oaow w>oor- 
Fat tet tS tet tet tay tet td Stet TT EY Ot Fp het PSST aE SS25e6 Zz2zoaca> 
ZOVOVADNETE OVCOVCOVCOVATETES COL OIOYBVTTEVOT OI OAAAVMOVVOATEOLOMvOIEOstw 
Ca oy nr“ A fA aed nA fo he 
Oo ~ o o oe N m wT Wo 
- - - = uN N ~ Nu NN wm 
- - - - - - - - - --— 
Ck ak ae TTT TTMNMMNMNMNN OOOO OF-P-P-P-P-K COO OOO DOOOODOwY 
€0.00.00 60 00. 00 00.00 60 00 G0 00.00 00 60 G0 G0 00 G0 G0 GD G0 60 G0 60 G0 60 GD GD a0 G0 60 G0 60 GD 00 G0 GD 00 00 60 G0 60 a0.60 00 00 e0 cD a0 G0 cd cO G0 G0 .c0 60 


Bagg 88 eo oo 8 oe So SS SS SSS SS SSSsSsssssssssssssss 
OOOO OOOCOOCOOCCOCOOOCOOOOCOOOOSOSOSSSSOSOSOSCOCOSSCOOOOOSoOoSooO 


Oru fOr ren oI K—KNOOCOK NOK OK KNIT OOK NOK Or & OODOOWK- WOK OK Ne NOOO 
200 —O-— OO Or Or Or OOOO ORK OE OO — BODO ORK Oe OOO WWD RK ORK Oe OO Oe COU 


MW 000-1 MON WFO Ee OST OU COT OO WOOF Ou COM K— EMUWOT OL OOK OT OEMOON 
IMOOOOO0O0000 INO COMDOODM MO LOMO — — — WODOWM € — OOD KK OODO- OD 


wv oO @ Oo Qa ony 8 6 @ a - 
Oo - ~ - ~ oO Ulm ~ ~ Oo 
o wm 
o @ 
om 
o Oo 
o So 
o Oo 
owe WwW ue u& uo wwoowryr ™ NOOO Ww WT COOMmMaOaOoO ww v-s DO w WO 
“~ © © <«< © @W ao anwom © OO @ wom Oo oO ONe- om OO CO OM CO YO@ 
oOo 
- oOo oOo «t ww a oO a o > 4 
Tr Tw wr TF KH - -— ~ S oOo 
o 
So 
o 
So 
So 
So 
o 
o 
So 
[=] 
S 
So 
oS 
[=] 
So 
o 
w 
<= 
w 
oO 


| 
| 
| 


ooo Osh ee ere ee aS 


2 
DBGCVTDX 1h-sépe19 4 :57:30 AX-11 Bliss-32 V4.0-742 Page 201 
v04=000 14-Sep-1984 93:37:39 DEBUG. SRCIDBGCVTDX..B32¢1 ° (33) 
1£ 10 AE €9 008CB BLBC  SIGN-FLAG, 130 : 5187 
7B OF i 61 aBet CAPE (RT SIGN) #i2 + 5190 
64 0 $6 0803 MOVB 4 (RT_SIGN) : $192 
03 11 008D BRB 128$ : 
4 10 Be 0 DA 127$:  SUBB2 #16, (RT_SIGN) + 5194 
0 68 ; DD 1288: CMB (LF SIGNT, #48 + 5196 
68 78 #6 ase? nove #198, (LF_SIGN) : 5198 
68 10 80 OBES 129$: ADDB2 #16, (LF_SIGN) + 5200. 
1c (11 OBeB BRB 134§ : 5187 
7D =F 64 91 OOBED 130$: CMPB  (RT_SIGN), #125 : 5206 
05 ff O8F 1 BNEQ 1318 ; 
64 0 90 O08F3 MOVB #48, (RT_SIGN) : 5208. 
03 (11 OOBFG BRB 1328 ; 
64 19 82 008F8 131$:  SUBB2 #25, (RT_SIGN) : 5210 
30 68 91 008FB 132$:  CMPB (LF SIGNY, #48 + 5212 
06 12 OOBFE BNEQ 133$ ; 
68 7D «68F O90 90900 MOVB #125, (LF_SIGN) : 5214 
68 18 bb betes 1558: konee? aoe” GS sien : 5216 
14 BE 01 01 BS 05 AS 36 $0909 13a8: cMPP4 } 5(R5), aT(R5), #1, @PACK_ZERO : 5220 
54 dC 00911 MOVPSL R4 : 
54 54 02 02 EF 00913 EXTZV #2, #2, R4, RG : 
54 07 00918 DECL 4 : 
68 12 OO91A BNEG 139% : 
50 05 AS 3C 0091C MOVZWL 5(R5), RO : 5222 
50 02 C6 90920 DIVL2 #2, RO : 
51 000000006 00 04 AB C1 00923 ADDL3 4(R11), LIBSAB_CVTTP_O, R1 : 5223 
01 B540 04 00 61 FO bo9e¢ INSV (R1), #0, #4, 31(RS)CROI : 5222 
4F 11 009 BRB 139$ : 4690 
08 BE 05 pO 00935 135$: MOVL #5, @LEFT_OR_RIGHT_CVT : 5229 
00000093 = 8F 56 D1 00939 CMPL STATE, #127 : 5230. 
10 if 00940 BNEQ  136$ ; 
6A 08 a9 90 00942 MOVB 8(SRC_OR_DST), (SRC_OR_DST_INFO) : 5233. 
50 OA a9 01 03 EF 00946 EXTZvV #3, #T, TOCSRC_OR_DST)> RO : 5235 
07 «AA 01 01 50 FO 0094C¢ INSV 0; #1. #1, 7(SRC7OR_DST_INFO) : 
Oc AE DS 099¢ 136$: TSTL TURN : 5237. 
6A 12 0095 BNEQ  142$ : 
50 04 AC 00 00997 MOVL SOURCE, RO > 5244 
60 B85 00958 TSTw (RO) ; 
Se ne Sie EME Lihue 7 
05 11 $0961 BRB 7% : 
58 0 3¢ 0963 137$: MOVZWL (RO), SOU_LEN ; 
5 p 0966 DECL U : N ; 
20 AE 04 8048 0 0968 138$: MOVB  a4(RO)CSOU_LEN], TEMP_BUF : 5246 
21s 04 B80 5B 2 O96 MOVC3 SOU_LEN, a@&%(RO). TEMP~BUF +1 : 247 
0 Oc AC DO 00974 MOVL SRCWINFO : 5248 
05 Ao 1F 8 978 MOV) #317 5(R6) : 
01 B0 05 ad 20 AE 38 97¢ CVTSP SOU‘LEN, TEMP_BUF, 5(RO), @1(RO) : $249 
11 00984 139$: 6RB : 4690 
08 BE 99 D0 0986 140$: MOVL #5, @LEFT QR_RIGHT CVT : 3299 
00000094 =F 6 D1 O098A CMPL STATE. wit : 5256 
10 if 0991 BNEQ 41 ; 
6A 08 a9 90 00993 MOVB  §8(SRC_OR_DST), (SRC_OR_DST_INFO) > $259 
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Size: 16315 code + 6948 data bytes 
Run Time: : 


Elapsed Time: 17:37.9 
Lines/CPU Min: 999 
Lexemes/CPU-Min: 14517 
ponecy Used: 2755 pages 
Compilation Complete 
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DBGCVTDX sep 1 38 ? :57:30 AX-11 Bliss-32 V4.0-742 
v04 Sep-1984 16:44 DEBUG. SRC JDBGCVTDX.832;1 
; 5305 408 1 END ! End of module DBGCVTDX. 
3308 8208 0 ELUDON é 

~EXTRN LIBSSiGNAL, SYSSUNWIND 
: PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSOWN NOVEC, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3; DBGSPLIT 6 of NOVEC, *NOWRT, dD, E, R, LCL, REL, CON, PIC,ALIGN(O) 
3; DBGSCODE 16315 NOVEC, *NOWRT, RD, SHR, LCL, REL, CON, PIC,ALIGN(O) 
H Library Statistics 
: Symbols -------- Pages Processing 
: File Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 59 0 1000 00:01.8 
> 7$255$DUA28: CDEBUG.OBJ JSTRUCDEF .L32;1 0 0 7 00:00.1 
s “$255$DUA28: DEBUG.0BJJDBGLIB.L32;1 101 6 97 00:02.0 
H “$255$DUA28: EDEBUG. OBJ JDSTRECRDS.L32;1 6 ' 31 00:00.3 
> _$255$DUA28: (DEBUG.0BJ JDBGMSG.L32;1 18 4 22 00:00.3 
; Information: 2 
3; Warnings: 
; Errors: 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:DBGCVTDX/OBJ=0BJ$:DBGCVTDX MSRC$:DBGCVTDX/UPDATE=(ENHS : DBGCVTDX) 
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